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INI TAP 18-Se -1984 01:50:5 VA P 
1a-Sep 95:38: JINITAP.B32;1." (1) 


X-11 V4.0-7 
“Sep-1984 12:35:1 DISKSVM INIT.S 


42 
IT.SRC 


: 1 80) MODULE INITAP ( eet en , 

¢ i DENT Se yOReobOT | 
: be 4 )z 

Ga 005 1 BEGIN | 
me. 0007 1! | 
5 8 sa: : “aldara niin tieniaiiniciniininalale 
° .* fe 
s 7 sts 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ® 
; 11 0011 1 !* DIGITAL EQUIPMENT EORPORA’ ION, MAYNARD, MASSACHUSETTS. * 
: \¢ pote ! x ALL RIGHTS RESERVED. . 
; 14 0014 1 it THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED s 
4 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; 0016 1 !@ INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
H 17 uci? « !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 i 384 : * TRANSFERRED. * 
4 ; © 
3 $ 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 2 00 ¢ 1 !@ AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 34 8 ; ; he CORPORATION. ® 
Py .* % 
; 5 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; $8 8 $ ! is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
: 28 0028 1 i * 
0080 : Vee e RRA ERA AAAAAA AREA AREA AERA AAA ATTA AAA AAA 
; 1 0031 1 !++ 

3 ¢ ih . 3 

$ 0035 1 ! FACILITY: INIT Utility Structure Level II 

; | 634 ait 1! 

.- = 0035 1 ! ABSTRACT: 

; » 0036 1! 

3 4 st £4 ' THIS MODULE HANDLES INITIALIZATION OF ANSI MAGNETIC TAPE 

: $ 0039 1 | ENVIRONMENT: 

: 40 0040 1! 

(41 0041 1! VAX/VMS operating system, including privileged system services 

; ri} BOs 1! and internal exec routines. 

ET 

> 45 boc8 1 i 

; | 646 Bd0g 1! 

3 ri 4 944 : : AUTHOR: D. H. GILLESPIE, CREATION DATE: 10-DEC-1977 18:10 

; 9 49 MODIFIED BY: 

: af 511: v03-011 MMD0269 Reg Dumont 23-Mar-1984 9:19 

3 2g O36 1! Change the process ng of the accessibility character fields 

; ime in the VOL1 and or HOR! Label to call the installation 

: «654 054 1! specific accessibility routine. The return from this ; 

3 22 Opee ' : routine determines the users access to the volume and/or file. 
; 39 $089 1! v03-009 MMD0237 Meg Dumont, 14-Feb-1984 11:16 


413 
INI TAP 16-Sep-1984 :50:5 VAX-11 Bliss-32 V4.0-742 2. 
v04-000 12-08-1382 93 :38:3 3 DISKSVMSMASTER: CINIT.SRCJINITAP.832; f39 (1) 
3 38 038 1! Change all calls to CLEAR_ VALID to a Q10 IO$_AVAILABLE. 
a? } Delete ye reference to SET_VALID. 
: 61 ; 1 v03-008 MCNO aria del C. Nas 30-Nov-1983 
; 6 § 1! Deting LABEL STRING as BBLOCK descriptor and use 
; o7 ber : descriptor offsets to find Length. 
: 65 065 1! v03-007 MMD0180 Reg Du 26-May-1985 15:15 
= Doe 1! Change VOL! to ind cate ANS | level 4 when writing a SYSTEM 
: a4 bee : CODE in the VOL1 (abel. 
: 9 0089 1 v03-006 STJ3091 teyen jettreys. 27-Apr-1983 
3 a Baey : } Added support sot / SOJERAS E. 
eS 007¢ 1 i VO3-005 MMD0133 Meg Dumont, 12-Apr-1983 17:20 
3 Ba5 1! Turn on suppers fe for writing the VOL1 OWNER IDENTIFIER 
; 74 074 1! field so that it is now a nonVMS field. Add support 
3 a 1 } } for the underscore as a valid character to tape. 
co a 0077 1/ V03-004 MMD0127 Meg Dumont, 1-Apr-1983 14:13 
: ze Bogs : } Fix to the temp fix 
: 80 0080 1: V03-003 MMD0126 Meg Dumont, rer ives 13:28 
: He see : Temp take out references to VOL_OWNER 
: 8 0083 1 | vO3-002 MMD0117 Meg Dumont, 29-Mar-1983 0:42 
: 84 0084 1! Add support for new VMS protection. Means writing a 
; +H eH : VOL2 Label to the tape when a VMS protection is pone 
: 87 0087 1: v03-001 MMD0001 Meg Dum 13-Aug-1982 13:1 
: a8 sit : } Change from call to SET oyALID to Q10 I0$ *PACKACK 
: 90 0090 1: V02-013 pMw0018 David Michael Walp 2-Mar-1982 
3 4! 9 ' Another correction for the volume invalid problem 
: 9 0093 1! v02-012 DMW0016 David Michael Walp 18-Dec-1981 
3 ee Baa ’ Increase Treneteble size to 256 
: 96 0096 1 v02-011 pMw0011 David Michael Walp 21-Aug-1981 
s 97 0097 1! Correct override typo and new Tape_Own_Prot and 
3 a8 94: : : /LABEL for /ANSI 
; 100 0100 1! vO2-010 DMw0010 David Michael Walp 18-Jun-1981 | 
: 191 19) ' } Cleaned up defaulting of density. | 
: 198 198 1} vO2-009 DMw0009 David Michael Walp 19-May-1981 | 
5 ie ; 3 : } Placed Volume Id tote the File Set Id of the "Dummy File’ 
> 106 106 1 | v02-008 pMmW0008 David Michael walp 1-May-1981 | 
: 107 01 7: Upcased Volume label and check for illegal ( non ANSI ‘a’ 
3 138 ; 3 : characters ) | 
: 110 110 1: V02-007 DMw0006 David Michael Walp 25-Apr-1981 | 
s 197 1171: «1: srosted, routine SET_CHARACTER ( reset parity and 
cee — 
>: 114 14 1! v02-006 DMw0004 David Michael Walp 9-Apr-1981 
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LIBRARY 
REQUIRE 
REQUIRE 


FORWARD 


EXTERNAL ROUTINE 
CALDAYNO 


EXTERNAL 


13 3 1 
-sep- 

12-808} 
Added switch '/ANSI=VOLUME_ACCES 
Fixed bugs with over ide switches 
Created FORMAT_VOL1 from old and 
Reformated module 


v02-005 DMw0001 David Michael Wa 


Replace Check _Prot erosemvre, Wie 
w 


confused by phe fact that in 


or version 

V02-004 RLRDENS Robert L. Reppap 
At the same time that /DENSITY= 
added to IN TIAL LEE o we 

of INITIALIZE return ng $S$_VOLI 
follows a DISMOUNT/NOUNLOAD in a 
v02-003 MCNO001 Maria del C. Nas 
Change DECFILE112 to DECFILE1IA 

data from HDR2. This is part of 

v0100 ACG00001 Andrew C. Goldst 
Previous revision history moved 


a Sheet sORAay sh 19,52"; 
*SRC$: INIDEF .832°; 
*LIBDS: CVMSLIB.OBJJINITMSG.B32'; 


ROUTINE 

CHECK_PROT, 

DEFAUCT_CHAR : NOVALUE, 
FORMAT _VOL1_VOL2, 
INIT_TAPE : NOVALUE, 
READ_VOLLABELS : NOVALUE, 
SET_DENSITY : NOVALUE; 


CONVDATE_J2R, 

CONVDATE_R2J, 

GET_CHANNELUCB, 
RECOR 


: NOVALUE 
vT_oTB : ADDRESSING_MODE (ABSOLU 
PROCESS-VOL2_LABEL, 

TAPE_OWN_PROT; 


CHANNEL, 


4 01:50:5 VAX-11 Bliss-32 V4.0-742 
382 93:30:78 DISKSVMSMASTER: CINIT.SRC 
SIBILITY:'*x’" 

and error returns 
new code 
lp 10-Dec-1980 


procedure was 
as installed with sysprv 


rt 8-0c t-1980 

and /DENSITY=2 support 

correct the prep .ee 

NV when the INITIALIZE 
command procedure. 

e. 20-Jun-1980 15:10 

in HDR1, and eliminate binary 

the implementation of HDR3. 


ein, 10-Oct-1978 21:27 
to CINIT.SRCJINIT.REV 


check volume pretest ien 
set default characteristic 

of tape drive 
format the VOL1 and VOL2 Label 
main control for tape init 
read & verify VOL1 & HDR1 

ANSI Labels 
set the density of the drive 


' calculate day number ( cho 

' hour min sec from binar 

' convert date ANSI tape JULIAN 
to VMS 


' 

i] 

' 

! 

' convert VMS date to ANSI 
! JULIAN format on tape 

! Given channel number : 
' get current record drive is reading 
! write user volume labels 

in sormet volume owner field 

' process the VOL2 Label 

' determine protection and 
' owner of tape 


et assoc UCB 


! channel of volume 


Page 
JINITAP.B32:1) "(1 
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: 17 93 1 CTL$GQ_PROCPRIV : REF BBLOCK ADDRESSING_MODE (ABSOLUTE) 

: 17 94 1 INIT_OPTIONS : BITVECTOR ' init option bits 

: 174 95 1 LABEC_STRING |: BBLOCK CDSC$C_S_BLNJ, | Label descriptor 

.s 5 239 1 OWNER UIC ' value of quner switch 

: 176 23 1 PROCESS UIC, ' process uic 

: 17 98 1 PROTECTION, ' yalue of protection switch 

; ia 599 1 VOL _ACC : BYTE ! value of label:volume switch 

; 129 600 VOL “OWNER : VECTOR C14,BYTE): i value of owner id field 

: 181 602 1 BIND 

3 18¢ 0605 1 STARID = UPLIT ("DECFILE11A'); ! Set the value for VOL1 syscode 
: 18 604 1 OWN 

184 605 1 ANSI_LABEL : BBLOCK [80] ! ANSI Label 

> 185 606 1 10_ STATUS : VECTOR (4,WORDJ, i 1/0 status 

: 186 607 1 PRIVILEGE _MASK : REF BBLOCK, ' process privilege mask 

s Yer 0608 1 VOLUME _PROT, ' protection for tape 

; 188 0609 1 VOLUME UIC, ! owner of tape 

: 189 0610 1 ACCES ! users's access to magnetic tage 
: 190 0611 1 CURRENT_RECORD, i Tape record before call to SMTACCESS 
; «191 0612 1 LABEL_VER, ! ANSI Label version decimal value 
: 192 0613 1 CB : REF BBLOCK i UCB address 

: 19 0614 1 CHAR : VECTOR 4 BYTE, i Char to output for tape accessibility 
; 194 0615 1 VOL1 : BLOCK (80,BYTE 

: 195 0616 1 INITIAL(BYTE ( 'VOL1", ! VOL1 skeleton 

> 196 0617 1 REP 75 OF BYTEC' '), 

: 197 0618 1 "3")), 

: 198 0619 1 

: 199 0620 1 VOL2 : BLOCK (80,BYTE] 

: 200 0621 1 INITIAL(BYTE ( ‘VOL2", ! VOL2 skeleton 

; 201 0622 1 "DxC' 

; 202 0623 1 REP 78 OF BYTE <" '))), 

3; a 0624 1 

3 204 0625 1 HDR1 : BLOCK (89,BYT | 
; 205 0626 1 INITIAL (BYTE (‘HDR1', ! HDR1 skeleton 

3 206 0627 1 REP ¢3 OF BYTE (* "), 

: 207 0628 1 REP 3 OF BYTE ('0"), 

; 208 06¢9 1 7", 

: 209 0630 1 REP 7 OF BYTE ("0"), 

; 210 0631 1 "100! 

; ii 0652 1 REP 1% OF BYTE(' '), 

: lg 0633 1 REP 6 OF BYTE('O") 

3; 21 0634 1 "DECFILETIA *, 

: 216 0635 1 REP 8 OF BYTE<® *))), 

: 15 Bo38 1 

3 16 6 1 

: 217 0638 1 HDR2 : BLOCKC80,BYTE) 

: 218 0639 1 INITIAL (BYTEC'HDR2", ! HDR2 skeleton 

+ 219 0640 1 a 

: 220 0641 1 REP 10 OF BYTE('O'), 

: 31 O64¢ 1 REP 35 OF BYTE(' "), 

: é 643 1 00" 

: 22 0644 1 REP 28 OF BYTE(' '))); 

3; 224 0645 1 
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GLOBAL ROUTINE INIT_TAPE 


144 

' 

! FUNCTIONAL DESCRIPTION: 
This routine is the main control for tape initialization. If the 

current tape is a valid files_11 ANSI tape, then the user must have 

write privileges or be the owner of the tape. If the first file has 

not expired, then the user must specify override expiration date and 

have the privilege to do so. On new tapes the user must agecly 

to overide both the oe iret ian date and accessilibity char in VOL1 

and HDR1 and have VOLPRO priv to avoid the run away tape condition. 


CALLING SEQUENCE: 
INIT_TAPE() 


INPUT PARAMETERS: 
none 


: NOVALUE = 


IMPLICIT INPUTS: 
CLI parser database 


OUTPUT PARAMETERS: 

none 
IMPLICIT OUTPUTS: 

FILES-11 structure level II ansi magnetic tape initialized 
ROUTINE VALUE: 

none 


SIDE EFFECTS: 


Oe ee ee te ee 


none 
USER ERRORS: 

none 

BEGIN 

LOCAL 
DESCR : VECTOR C2], ' descriptor 
STATUS, ' system service status 
TODAY : VECTOR C12,BYTE), ' buffer for today’s date — 
VMS_PROT; ' VMS protection was specified 


EXTERNAL ROUTINE 
ERASE_BLOCKS; 


erase the tape 


BIND 


SECONDS = UPLIT (-10000000,-1); ' 1 second in 100 nsec units 


' The following note is left for historical reasons only! 
!eeeeeerrreeese REAR AAAKARAAAAAEATAAATATAAEAAEAKATAAARAEAAARAAARAEAARAARAAREARAARARARAEERAREE 


! Here we have inserted a single Q10 (I1O$_REWIND) which apparently is not 


-1984 01:50:5 VAX-11 Bliss-32 
=1984 93:39:28 DISKSVMSMASTER: 


0-742 p 
iT.SRCJINITAP.B32:1- 


D 14 
16-Sep-1984 01:50:5 VAX-11 Bliss-32 V4.0-742 P 
12-80} 382 94:30:78 DISKSVMSMASTER:LINIT.SRCJINITAP.B32:1 > (28 


The solution (pronounced KLUDGE) herein implemented, simply inserts an extra 
single $Q1]0W with IO$_REWIND function code, surrounded by A EY i 
settings of the UCBSM_VALID bit, before the real logic of INITIALIZE begins. 
This $Q10W allows the above posers. interaction to occur, and after it is 
UCBSM_VALID bit on. 


PRRAAAAALALALALALALALALALARAARALALALARALAARARSAAALALASESASALEA SALAS SRSA SAREE SD 


finished, we again set the 


83 ! needed but which in fact is here to take care of an anomaly that 
84 ! sometimes occurs when the INITIALIZE command appears in a command file 
85 immediately following a DISMOUNT/NOUNLOAD command. 
£8 ! Under certain circumstances the INITIALIZE fails with a SS$_VOLINV status. 
88 ! The problem is due to a complicated interaction involving QI0 dispatching 
89 : togic. the MAGTAPE ACP, and the INITIALIZE command. What occurs is the 
ay following. 
9 ' DISMOUNT, before gE ka issues a $Q10W with an I/0 function code of 
29 i 10$_ACPCONTROL!IOSM_DMOUNT. This request is forwarded to the ACP and 
Be DISMOUNT then has ifs image rundown. 
39 The ACP then issues a $Q]0W with a function code of IO$_REWIND! 1O$M_NOWAIT, 
98 ! UCBSM_VALID bit in UCBSW_STS (which in this case was still on due to the 
99 ! volume er peseusty having been mounted) and then INITIALIZE issues its own 
64 } $Q10W with an IOS_REWIND funciton code. 
02 ! In some instances, the ACP's REWIND Q10 does not get as far as REQCOM 
303 ! until after INITIALIZE's REWIND has been queued. If this occurs, INIT's 
304 ' queued REWIND is started up before the ACP actually regains control and 
i 305 ! the driver has no trouble since it finds the UCBSM_VALID bit still on. 
| 306 ! Untortynetely as since as the ACP regains control, following the 
j}3; 307 i driver's WEIKPCH, the ACP clears the UCBSM_VALID bit. The next Q10 
308 } sgoued by INITIALIZE will fail due to the absence of the UCBSM_VALID 
i] 
i] 
i 
i 
i 
i 
1 


The above is no longer true; that is we have elimentated the race condition 
mentioned above by not doing issuing the rewind at dismount time 

but infact marking the drive available. The following 10's mark 

the volume valid then issue the rewind, which is necreners because 

of the preMSCP drivers will not rewind on this function. The MSCP drivers 
will and the second I0 here becomes an NOP. 


STATUS = $Q10W( 
CHAN = .CHANNEL, 
FUNC = 10$_PACKACK 
10SB = 10_STATUS[O)); 


STATUS = $Q10W( 
CHAN = 
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. CHANNEL, 
FUNC = 10$ REWIND 
10SB = J0_STATUS(O)); 
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! wait 10 seconds before giving up 
INCR J FROM 0 TO 9 DO 
BEGIN 
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PAPAIN 
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| 
| 
| 
while in parallel, INITIALIZE is Steet ing wp and it proceeds to set the 
| 
| 
| 
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H 0 P 0760 STATUS = $01]0W( 

; 1 P 0761 CHAN = .CHANNEL 

; ; P 166 FUNC = 10S PACKAGK 

; 76 10SB = 10 STATUS(O4); 

: 4 P 0764 STATUS = $Q]0W( CRAN = .CHANNEL, 

3 5 P 0765 FUNC = IO$_REWIND, 

3 $ 766 10SB = 10 STATUS: 

; 0767 IF .STATUS THEN STATUS = .10 STATUSLO); 

: 348 0768 IF gererus NEQ SS$_MEDOFL AND .STATUS NEQ SS$_VOLINV THEN EXITLOOP; 

3 9 0769 4 IF S$SETIMR( DAYTIM = SECONDS, EFN = 0) 

3 0 0770 THEN SWAITFR( EFN = 0); 

3 1 148) END; 

; ¢ a 

; ? 14 ! all rewind errors reported to user 

3 2 14k IF NOT .STATUS THEN ERR_EXIT(.STATUS); 

3 ‘ O77? ! set the VMS default tape drive characteristics 

; 359 0779 DEFAULT_CHAR(); 

; 360 0780 

5 $e) 144 ! check user access to rewrite ( DESTROY ) the tape 

; Sez ores PRIVILEGE_MASK = CTL$GQ_PROCPRIV; ! process privilege mask 

3 $0? 144 ; ! Get the UCB associated with this channel 

3 $05 ar ee UCB = KERNEL_CALL(GET_CHANNELUCB,.CHANNEL) ; 

: 369 0789 ! The fottoutng check is here so that the operators has the ability 

s 370 0790 i to bypass the first read to magnetic tape. This should be 

. ar 0791 i used only when the magnetic tape is a blank tape. Blank tapes 

3 37 O75 i are prone to run away conditions especially on some of the older 

3 it B53z i tape drives. 

3; 375 0795 IF NOT (. INIT per ioescors Oty: EXP] ! bypass all protection if 

: 376 0796 AND .INIT_OPTIONSCOPT_O ccJ ' overide expiration and access 

B 6USTT 0797 AND .INIT-OPTIONSCOPT -OVR OLO) ! characters, volume owner, 

: 378 0798 AND .PRIVILEGE_MASK ban vOLPKOI ' and volpro 

: 144 0799 AND .PRIVILEGE_MASKCPRVSV_OPER)) ! and oper 

; 380 0800 THEN 

; 381 0801 BEGIN 

3 86 Bag READ_VOLLABELS(); ! is it an ANSI tape 

; Bi $804 ! If ACCESS is clear then we must give the user access to the tape | 

5 +H O82 i regardless of what the VMS protection specifies. 

3; Ser bB0s IF .ACCESS 

; 388 808 

; 389 809 4 BEGIN 

: 390 10 5§ IF 

; 391 811 6 se Pag He OPTIONSCOPT OVR_EXP) does user have privilege 

; 39 aig 6 ANT OPTIONSCOPT_OVR_VOLO)) or volume owner 

; 39 813 6 T T. PRIVILEGE E RASKEPRVSY voLPRO} ? ( volpro priv or 

3; 394 814 g OR. VOLUME UIC EQL TPROCESS_UIC) ! owner of the tape ) 

: 395 815 ) 

5 96 816 4 OR | 
| 
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SFe. 


Seeeeee 


@oco 
IN 


| 
: 


( 
NOT KERNEL_CALL (CHECK_PROT, vache: or « VOLUME _UIC) 


oes user have VMS write priv 
ee: THEN ERR_EXIT(SS$_NOPRIV); 
END; : 


! set default version number to 3, and format the volume label. Please 
' note that if we write a VMS precestjenen this tape then the LABEL_VER 
! is set to 4, inside FORMAT_VOL1_VOL2. 


LABEL_VER = 3; 
VMS_PROT = (FORMAT_VOL1_VOL2 ()); 


! default expiration and creation dates to today's date for HDR1 


DESCREO] = 11; 
DESCR(1) = TODAY; 
SASCTIM(TIMBUF = DESCR); 

CONVDATE_R2J (TODAY, HDRICHD1$T_CREATEDT]); 

CHSMOVE (AD1$S_CREATEDT ,HDR1CHD1$T_CREATEDT),HDR1CHD1ST_EXPIREDT); 


' Call the accessibility system service to get the character to output. 
! First keep the record that the UCB is reading. The accessibility 

! routine can not move the tape from under us! Thus we will compare 

! this to the field after the call and if the tape was moved we punt 

! the operation. 


CURRENT_RECORD = KERNEL_CALL(GET_RECORD, .UCB); 
UIC = .PROCESS_UIC 
D_VERSION = .LABEL_VER, 


ESS"SPEC = MTASK_NOCHAR, 
TYPE ="MTASK_OUTHDRT) ; 


STATUS = KERNEL _CALL(GET_RECORD, .UCB); 
IF .CURRENT_RECORD NEQ .STATUS 
THEN ERR_EXIT(SS$_TAPEPOSLOST) ; 


HDRICHD1ISB_FILACCESS) = .CHARCO); 

! write the file set id from the volume label, the MOUNT will place it 
! in the MVL and the MTAACP will use it as the FILE SET ID 

!' move must be done after VOL1 has been set up, because Legal ANSI ‘a’ 
! character check is in FORMAT_VOL1_VOL2 

CHSMOVE ( VL1$S_VOLLBL, VOLICVLIST_VOLLBLJ, HDRICHDIST_FILESETID] ); 

! rewind the tape 

STATUS = Ow ( 


$Q] 
CHAN = .CHANNEL, 
FUNC = IO$_REWIND, 
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; 454 are 10SB8 = IO_STATUS(OJ); 

: 439 fF = TUSCOJ; ! report problems to user 

: «STATUS THEN STATUS = .10 STATUSCOJ; ! 

: iy : IF oT .STATUS THEN ERR_EXITT. STATUS); 

> 458 

; £80 3s ! set tape density if users has used /DENSITY qualifier 

te a IF .INIT_OPTIONS COPT_DENSITY] THEN SET_DENSITY (); 

: 46 

: BRS he tape. This function is only valid 

; 183 He de ene tioa cout asee faked drieeee “* er cusabteks tale” te eae 

: i $s no _ 

: a8 a8? i? ios rose aia a ohn yt Fe of the erase is for ane Bann nig bad 

: O85 $889 i to scribole on the tape starting from the current position and continuing 

; rks 9890 i the EOT mark, then rewinding to the BOT mark. 

: th 0898 IF .INIT_OPTIONS COPT_ERASE] 

3; 47 089 THEN 

; rhe: $898 4 OF STATUS = EXEC_CALL (ERASE_BLOCKS, 0, 1, .CHANNEL)) 

ree oboe 3 THEN. FATUS = ,10_STATUS(O]; 

; 478 0898 IF NOT .STATUS 

; 280 $900 ; ERR_MESSAGE (INITS_ERASEFAIL, 0, .STATUS); 

2. in: Si 

; tbe StS ** EOF1 EOF2 ** in other words the volume 

; tbs b908 g ag rig Ey ng Bag so the Label set are complete ) 

; 486 0906 ~ 

oes 8 ee se 

: 158 P 0910 FUNG = 108 WRITELBLK, 

> 491 P 091 Pl = VOLI, 

; 49 091 Pe = 80): - ras, 

; N STATUS = .10_STATUSCOI; 

; toa bo14 If oT STATUS THEN ERR_EXITT. STATUS); 

132 bore hange and the user has requested VM 

; 499 $917 ath wie Be mgt hy thy Renn : VOL2 Label after the VOL1 label. 

; 498 HH IF NOT .INIT_OPTIONSCOPT_INTERCHG] AND .VMS_PROT NEQ 0 | 

; 200 359 = = . CHANNEL 

; 501 P 0921 STATUS = $Q10W ( — S is ertuEsc0). 

: 208 p $9 j FUNC TOPS eURITELBLE, | 

; Pl=V ° 

i be P b938 P2 = 80); 

: 38 356 N STATUS = .10. STATUS: | 

; 308 03 § IF OT STATUS THEN ERR_EXITT. STATUS); | 

: 508 9 | 

; i ls, the first 

; $03 09 ; ! Give the user the opportunity to write the user volume Labe | 
| 
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Sa ee 
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0971 


INN 
wr 


3333333 
OO000O0 


vuvvU 
SoOooQooooo 
pat try te ete 
NOUEWN—OOONOM 
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! 3 characters of which must be ‘UVL'. 


!STATUS = WRITE_U 


\IF NOT .STATUS“T RR_EXIT(. STATUS); 


ATUS = .I0_STATUS(O]; 
N ERR_EXITT.STATUS); 


STATUS = $010 
CHAN 


P2 = 80); 
IF .STATUS THEN STATUS = .IO_STATUS(O); 
IF NOT .STATUS THEN ERR_EXIT(7STATUS); 


STATUS = $Q10W( 
HAN = .CHANNEL 
10SB = 10 STATUSCO), 
FUNC = 10S _WRITEO 
.STATUS THEN STATUS = 
IF NOT .STATUS THEN ERR_EXITT. STATUS); 


STATUS = $Q10W( 
C s 


F): 
.10_STATUSCO); 


HDRICHD1SL_HD1LID] = ‘EOF1';: 
HDR2CHD2$L_-HD2LIDJ = "EOF2': 


T .STATUS THEN ERR_E 
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! HDR1 


HDR2 


Tape Mark 


Tape Mark 


format trailers 


EOF 1 


EOF2 
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vuvuv 
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Uewn— 
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00050 I0_STATUS: 


-BLK 
00058 PRIVILEGE v & 


0005C VOLUME PagT: 
00060 VOLUME vie: 
00064 ACCESS: 


*BLKB 
00068 CURRENT_RECORD: 


-BLK 
0006C LABEL _VER: 

-BLKB 
09 70 UCB: -BLKB 
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STATUS = $Q10W( ' Tape Mark 
CHAN = . CHANNEL 
10SB = 10 STATU 
FUNC = 10S WRITEGF) ; 
IF .STATUS THEN STATUS = .10 STATUSCO]; 
IF NOT .STATUS THEN ERR_EXITT. STATUS); 
STATUS = bac ! Tape Mark 
C .CH 
Tose = {0 STATUS 
UNC = 10S WRITEOF 
IF “STATUS THEN STATUS = .10 STATUSCO); 
IF NOT .STATUS THEN ERR. “EXITT STATUS) : 
STATUS = $Q10W( 
HAN = .CHANN 
10SB = i0 iT 
UNC = 10S 
IF .STATUS THEN STATUS = .f0.STA TUSCO); 
IF NOT .STATUS THEN ERR. “EXITT. STATUS) : 
! end of routine INIT_TAPE 
.TITLE INITAP 
“IDENT \V04-000\ 
.PSECT $PLIT$,NOWRT,NOEXE,2 
45 46C 49 46 43 00000 P.AAA: .ASCII \DECFILE11A\<0><0> 
0000C P.AAB: .LONG 10000000, -1 
.PSECT SOWNS,NOEXE,2 
00000 ANSI_LABEL: 
80 


Serr fF FPF fF SF OO 
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v04-000 12300-4382 93:30:98 DISKSVMSMASTER:CINIT.SRCJINITAP.B32; ? (2) 
183 eASCII \ \ ; : 
1B4 “ASCII \ \ : ; 
1B5 “ASCII \ \ : ; 
186 SASCII \ \ : ; 
018 “ASCII \ \ ; : 
SECONDS PAAR 
.EXTRN CALDAYNO, | ONVDATE ; 
-EXTRN CONVDATE_R GET ChANNELUCE ; 
“EXTRN GET_RECORD "FORRAT VOLOWNER ; 
“EXTRN LIBSCVT_OTB CESS VOL. LABEL F 
SEXTRN TAPE Own P ér° byte EL : 
“EXTRN CTL$GQ PROCPR v ; 
-EXTRN INIT_OPTION LABEL openine 3 
SEXTRN OWNER ule. P Shot Olc ; 
~EXTRN PROTECTION, VOL. re 3 
-EXTRN VOL_OWNER, ERASE BLOCKS ; 
“EXTRN SYSSQIOW, SYSSSETIMR ; 
EXTRN SYSSWAITFR, SY yesh MKR RNL ; 
“EXTRN SYSSASCTIM, SYSSMTACCESS ; 
“EXTRN SYSSCMEXEC : 
.PSECT $CODE$,NOWRT,2 ; 
OFFC 00000 ENTRY INIT TAPE, Save R2,R3,R4,R5,R6,R7,RB,R9,- = 0646 : 
58 00006 CF 9E 0000 MOVAB CHANNEL, R11 : ; 
5A 000000006 00 9€ 0000 MOVAB LIBS$STOP, R10 ; F 
59 000000006 00 9€ 90008 MOVAB SYS$QI0W, R9 : | 3 
gp 0000" ABET SUNS stgpus. : : 
7E sé 0001D CLRO. = (SP) : 0749 ; 
7E 7C OOO1F CLRQ = = (SP) : ; 
7E 7¢ 90021 CLRQ = = (SP) : : 
sr 7 : 
08 DD 00 ; PUSHL #8 : : 
68 DD 00029 PUSHL CHANNEL : ; 
E 04 00028 CLRL -(SP) 3 $ 
69 o¢ FB 00020 CALLS #12, $yssaiow : : 
56 p 00 MOVL RO, STAT : ; 
7E 7C 000 CLRO 0. = (§P) : 0754 : 
7E 7C 00 CLRQ = = (SP) ; ; 
7E 7C 000 CLRQ -(SP) s 3 
as re 7 : 
24 DD 00030 PUSHL ae ; ; 
ae CC : ; 
69 o¢ FB we CALLS #12, SYS$QI0W : 3 
4 9 DO 00046 MOVL RO, STATUS ; : 
5 pA 0049 oC ae : 0758 3 
iS: Ae Land a 
7E 7C 0004F CLRQ = = (SP) ; : 
7E 7C€ 00051 CLRQ  -=(SP) : ; 
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04-000 bats 7A PT Se Se HS ok et 2) 
58 DD PUSHL R ; ; 
DD PUSHL # : ; 
68 DD PUSHL CHANNEL : : 
E D4 9 CLRL isp) F ; 
69 ¢ FB 098 CALLS #12, SYS$Q10W : | ; 
6 p 00 E MOVL RO, STATUS ; | ; 
a 6 CLRO 0s =( §P) ; 0766) ; 
7E 7¢ 006 CLRQ  =(SP) : ; 
7E 7C€ 00065 CLRQ  =(SP) : ; 
3 7€ 00067 CLRQ  =(SP) : ; 
58 DD 00069 PUSHL Rg : ; 
54 DD 0068 PUSHL #36 : ; 
6B DD 0006D PUSHL CHANNEL : ; 
7E 04 O06F on «= : ; 
69 o¢ FB 0071 CALLS #12, SYS$QI0W : ; 
56 DO 00074 OVL RO, STATUS : : 
03 56 £9 00077 BLBC STATUS, 2$ : 0767 ; 
56 68 3¢ OO07A MOVZWL 10_STATUS, STATUS : F 
00000144 = BF 56 D1 0007D 28: CMPL STATUS, #420 + 0768 ; 
09 13 00084 BEQL : F 
00000254 8F 56 D1 00086 CMPL STATUS, #596 : ; 
7 iz 90080 BNE ©«45$ : ; 
7E 7C OOO8F 3$: CLRQ  =(SP) + 0769 : 
0000" CF 9F 00091 PUSHAB SECONDS : ; 
7E D4 00095 CLRL  =-(SP) : : 
000000006 00 04 FB 00097 CALLS #4, SYSSSETIMR : ; 
09 50 £9 0009E BLBC ~=_-«aRO,._ 4S : F 
7E D4 OOOAI CLRL = = ¢§P) : 0770 ; 
000000006 00 01 FB OO0AS CALLS #1, SYSS$WAITFR : ; 
9D 52 09 £3 OOOAA 4$ AOBLEQ #9, J : 0758 ; 
05 56 EB OOOAE 5$ BLBS STATUS, 6$ : 0775 ; 
56 DD 000B1 PUSHL STATUS : : 
6A 01 FB 00083 CALLS #1, LIB$STOP : ; 
0000v CF 00 FB 000B6 6S: CALLS #0, DEFAULT CHAR : 0779 F 
08 A8 000000006 &8F DO 00088 MOVL #CTL$GQ_PROCPRIV, PRIVILEGE_MASK > 0783 ; 
6B DD 000C PUSHL CHANNEL : 0787 ; 
01 pd 000C5 PUSHL #1 : ; 
5E DD 000C7 PUSHL SP : : 
00006 CF 9F 000C9 PUSHAB GET_CHANNELUCB : : 
000000006 9F 04 FB 000CD CALLS #4, a#SYSSCMKRNL : : 
A8 30 DO 00004 MOVL . : : 
15 00006 CF 03 £1 00008 C #3, INIT_OPTIONS+3, 7$ : 0795 : 
OF 00006 CF 06 £1 OO0DE BBC #6. INITOPTIONS+3, 7$ : 0796 ; 
OA 00006 cE E9 O00E4 BLBC —sINI T_OPTTONS+5 : 0797 : 
05 08 B68 5 £1 000E9 BBC #21, aPRIVILEGE_MASK, 7$ : 0798 ; 
3C 08 B88 12 £0 O00E BBS #18. @PRIVILEGE MASK, 11 : 0799 : 
0000v cr 00 FB OOF3 7$: CALLS #0, READ_VOLL : 080 ; 
3 14 AB €E9 000F BLBC cCes T1$ > 080 ; 
05 00006 ¢ 03 EO OOOFC BBS #3, INIT _OPTIONS+3, 8$ > 0811 3 
0D 00006 CF €9 001 é BLBC _—sIN T_OPTTONS+ : O81¢ F 
08 08 B 15 €0 00107 8$: BBS 21, a@PRIVILEGE_MASK, 9S : 081 : 
00006 CF 10 a8 b} i CMPL VOLUME UIC, PROCESS_UIC > 0814 ; 
7E 0c AB 7D 114 9$: MOVa tage -(SP) ; 0818 : 
9 DD O18 PUSHL # : F 
—E OD OO11A PUSHL SP : ; 
Oo00v CF 9F O01IC PUSHAB CHECK_PROT : : 
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13-808- 1382 93:39:38 DISKSVMSMASTER:CINIT.SRCJINITAP.B32;1 . (2) V 
000000006 9F 05 FB 00120 CALLS #5, a#SYSSCMKRNL ; | ; 
05 0 £8 001 BLBS RO 118 : ; 
4 DD 0012A 10$:  PUSHL #36 + 0820. ; 
6A 1 FB 4 C CALLS ul. LIBS$STOP : ; 
1¢ AB 3 pO OO1CF 118:  MOVL #3. LABEL_VER ; 9829 ; 
0000v cf 90 F 4) ; CALLS #0, FORMAT VOL1_VOL2 + 0830 ; 
7 DO 001 MOVL RO, VMS_PROT ; : 
Oc AE 0B DO 00138 MOVL #11, DESCR : 0835 ; 
10 AE i: 9E 0013F MOVAB TODAY, DESCR+4 + 0836 ; 
E 7C 00143 CLRQ =(SP) + 0837 ; 
14 AE 9F 00145 PUSHAB DESCR : ’ 
7E D4 0148 CLRL = = (SP) : ; 
000000006 00 04 FB OO14A CALLS #4, SYSSASCTIM : ; 
OOF1 CB 9F 00151 PUSHAB HDR1+41 + 0838 3 
04 AE OF 00153 PUSHAB TODAY : ; 
00006 CF 02 FB 00158 CALLS #2, CONVDATE_R2J : ; 
OOF? 8 OOF] (C8 06 28 0015D MOVC3 #6, HDR1+41, HDR1+47 + 9839 ; 
20 AS DD 00165 PUSHL UCB + 847 : 
01 DD 00168 PUSHL #1 : ; 
5E DD 0016A PUSHL SP : : 
00006 CF 9F 0016C PUSHAB GET_RECORD : ; 
090000006 9F 04 FB 00170 CALLS #4, a@ASYSSCMKRNL : ; 
18 «AB 50 00 00177 MOVL RO. CURRENT_RECORD : ; 
03 DD 0017B PUSHL # + 0854 ; 
—E 7C 0017D CLRQ.  =<SP) : ; 
1¢ AS DD 0017F PUSHL LABEL_VER : ; 
00006 cr DD 00182 PUSHL PROCESS_UIC : ; 
E D4 00186 CLRL. = : ; 
000000006 00 06 FB 00188 CALLS #6, SYSSMTACCESS : ; 
24 «AB 50 DO 0018F OVL RO. CHAR : ; 
20 A8 DD 00193 PUSHL + 0856 ; 
01 DD 00196 PUSHL #1 : ; 
SE DD 00198 PUSHL SP : ; 
00006 CF 9F 0019A PUSHAB GET_RECORD : : 
000000006 9F 04 FB 00196 CALLS #4, a#SYSSCMKRNL : ; 
56 50 DO OO1A MOVL RO, STATUS : : 
56 18 AB D1 001A8 CMPL § CURRENT_RECORD, STATUS : 0857 ; 
08 13 OO1AC BEQL : ; 
7E 0224 8F 3¢ OOIAE MOVZWL #548, -(SP) > 0858 : 
6A 01 FB 018 CALLS #1, LIB$STOP : ; 
OOFD CB 24 AS 9000186 12$: MOVB CHAR, HDR1+53 + 0860 : 
OODD 8 2c AB 06 <8 o1B¢ MOVC3 #6, VOL1+4, HDR1+21 > 0867 ; 
7E ?C 001C CLRO. 0 _ = ( §P) : 0874 : 
7E 7¢ O1¢3 CLRQ  =(SP) : 3 
7E 7C€ 001C CLRQ = =(SP) : : 
7E 7C 001C9 CLRQ = = (SP) : ; 
58 ODD Bat CB PUSHL ; ; | ; 
24 DD 001CD PUSHL #36 : : 
68 DD OOICF PUSHL CHANNEL : ; 
E 04 00101 CLRL. =(SP : : 
69 o¢ FB O10 CALLS #12, SYS$QI0W : : 
56 D 108 MOVL RO, STATU F : 
06 56 5 1D BLBC STATUS, 13$ > 0876 | : 
C 001DC MOVZWL 10 STATUS, STATUS ; : 
0 6 E8 001DF BLBS STATUS, 14$ : 0877 : 
6 DD OO1E2 13$:  PUSHL STATUS : ; 
6A 01 FB OO1E4 CALLS #1, LIBSSTOP : : 
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05 00006 CF £9 001E7 14$:  BLBC INIT_OPTIONS, 15$ : 0882 | ; 
gon0v CF 69 Fe TE CALLS 40, SET_DENSITY : ; 
31 G CF E1 OO1F1 15$: BC #2, INIT_OPTIONS+5, 17$ + 0892 ; 
DD PUSHL CHANNEL : 089 ; 
a | 
7E 3 ” 1FB ova #3, -(SP) : : 
E pp 1F PUSHL SP : ; 
00006 CF 9F PUSHAB ERASE_BLOCKS : : 
000000006 9F ‘ F CALLS #6, @ASYSSCMEXEC : ; 
56 DO 00 08 MOVL RO, STATUS : : 
06 56 : 020€ BLBC STATUS, 16$ : : 
6 68 § 0 11 MOVZWL IO STATUS, STATUS + 0897 ; 
11 6 £ 14 BLBS STATUS, 17$ : 0898 F 
56 DD 00217 16$: | PUSHL STATUS : 0900 ; 
7E D4 00219 CLRL. = =( SP) : ; 
00759010 8F DD 0021B PUSHL #7704592 : ; 
000000006 00 03 FB 00221 CALLS #3, LIBS$SIGNAL : ; 
Fe FE Bossa et OEtRGxERp Spe 
7E 50 8F 9A 002e2C MOVZBL #80, -(SP) : ; 
28 AS 9F 00 9 PUSHAB VOLi : : 
ze 7C 0023 CLRQ = =(SP) : ; 
58 DD 00235 PUSHL R8 : ; 
20 DD 00287 PUSHL #32 : ; 
6B DD PUSHL CHANNEL : ; 
0239 
7E D4 002 B CLRL (SP) : F 
69 OC FB 0023D CALLS #12, SYS$Q10W : ; 
56 50 00 90840 MOVL 0, STATUS : ; 
06 56 «£9 0034 BLBC STATUS, 18$ > 0913 : 
56 68 3C 00246 MOVZWL 10 STATUS, STATUS : : 
05 56 E8 00249 BLBS STATUS, 19$ : 0914 ; 
56 DD 0024C 18$:  PUSHL STAT : ; 
6A 01 FB 0024E CALLS #1, LIBSSTOP : : 
1F 00006 CF 01 £0 00251 19$: BS #1, INIT_OPTIONS+5S, 20S + 0919 
57 D3 00257 TSTL  VMS_PROT ; 
1B 13 00259 BEQL 20 : 
7E 7C 00258 CLRO = =(SP) + 0925 
7E 7C 00250 CLRQ = = (SP) ; 
7E 50 8F 9A 0025F MOVZBL #80, -(SP) ; 
78 ABS 9F 00263 USHAB VOL? : 
7E 7C 00266 CLRQ = =( SP) ; 
58 DD 00268 PUSHL Rs F 
20 DD 0026A PUSHL #32 : 
$B DD 9 6C PUSHL CHANNEL : 
E D4 $ CLRL sis F 
69 ¢ FB 0 CALLS #12, SYS$QIOW ; 
56 0 DO 0027 MOVL RO, STATUS ; 
06 6 E9 00276 20$:  BLBC STATUS, 21$ : 0926 
56 : 09 0279 MOVL 10 STATUS, STATUS : 
05 6 £8 O0027C BLBS STATUS, 20% : 0927 
56 DD OO27F 21$:  PUSHL S$ : 
6A 01 FB 00281 CALLS #1, LIBSSTOP : 
E 7C 00284 228: CLRO 0. = (§P) > 0942 
7E 7C CLRQ 5 4sP) : 
7E 50 8F 9A MOVZBL #80, -(SP) : 
00¢8 cg 3 PUSHAB HDRI ; 
— 7C CLRQ = = (SP) ; 


F 15 | 
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14.000 18-808-1 382 93:39:28 DISKSVMSMASTER:CINIT.SRCJINITAP.B32; 1 B 
PUSHL ; 
38 BD 3 PUSHL #32 ; | 
$8 DD 0029 PUSHL CHANNEL 3 | 
9 ; PS 3h CALLS #12, SYS$SQIOW ; 
82 § 08 90 MOVL RO, STAT ; ne 
s PPB Re ue sans bom 
$ $e OES OO5A SEBS” SeRFuS. 3és 0944 | 
ge Be 6 i ae CALLS #1, LIBSSTOP : 
” re AE 24$: cLRG - §p) 0951 
ge 9h B2 MOVZBL #80, -(SP) ; 
7E 50 5 ; 
0118 c8 9F 00286 USHAB HDRE ; 
E 7C 002BA CLRQ 
a} BB Gir aH, : 
eB DD 00 5 PUSHL CHANNEL : 
69 OF is 88 &¢ CALLS #12, SYS$Q10W 
3 20 pS $6 rH Pat eraTOS + 0952 
6 8 ? 002CD MOVZWL 10 STATUS, STATUS ; 
38 3 E8 00200 L STATUS, 26 ; 0953 
56 DD 002D3 25$:  PUSHL STATUS ; 
6A 01 FB 00205 CALLS #1, LIBSSTOP Sao 
7E 7C 00308 26$: CLRO 0_ = (§P) 
fe Supe HAR 8h 3 
ss: 7¢ Night CLRQ = =( SP) : 
ah a aE) | 
re DD 0024 PUSHL CHANNEL : 
7E D4 8 E6 CLRL. -(SP) : 
69 OC FB 002E8 CALLS #12, SYS$Q10W : 
50 00 002EB MOVL RO, STATUS 
6 56 £9 OO2EE BLBC STATUS, 27$ > 0959 
56 88 $c O0sF MOVZWL 10 STATUS, STATUS 3 
38 56 E8 O02F4 LBS STATUS, 28$ ; 0960 
56 DD OO2F7 27$:  PUSHL  STATU : 
6A 01 FB 002F9 CALLS #1, LIBSSTOP r= 
ve oe Boers 288: CLAG = f8P) 
i: 7¢ 5 CLRQ (SP) ; 
7E 7C 0030 €LRQ (SP) 
3 DD 80 PUSHL R8 : 
28 DD og PUSHL #40 : 
68 DD 0030 PUSHL CHANNEL 
7E D4 O030A CLRL 53 ) ; 
69 ¢ F Oc CALLS i , SYS$QI0W ; 
ie Pe Be Misi 0966 
88 $8 45 § i BLBS STATUS, 6s ; 0967 
56 DD 00318 29$: PUSHL STATU 3 
6A 01 FB 0031D CALLS #1, LIBSSTOP : 


eat 
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v04-000 127808-13be 93:38:98 DISKSVMSMASTER:CINIT.SRCJINITAP.B32:1.° (3 
0 CB 31464F45 BF OD 30$:  MOVL #826691397, HDR1 : 0969 
gorg cg Here i 00 MOVL Wee seobars, HDR2 : 9398 
— 7C CLRO 2s = (SP) + 0977 
7E 7¢ CLRQ  =(SP) : 
7E 50 BF OA 6 MOVZBL #80, -(SP) : 
00¢ cg F A PUSHAB { : 
C CLRQ Ss = (SP) : 
58 0D 4 PUSHL 3 
DD 0034 PUSHL #32 : 
B DD 00344 PUSHL CHANNEL : 
E D4 00 46 CLRL (SP : 
69 of FB 0 4 CALLS #12, $ys$a10u : 
6 D 48 MOVL Tys ; 
06 tT 4 5 034E BLBC STATUS, 31$ : 0978 
56 68 ¢ 0351 MOVZ2WL 10 status STATUS : 
05 6 EB 00354 BLBS STATUS, 32$ + 0979 
56 DD 00357 31$ PUSHL T US : 
6A 01 FB 00359 CALLS #1, LIBSSTOP : 
E 7C 0035C 32$: CLROQ =-(5P) : 0985 
7E 7C 0035 CLRQ  =(SP) : 
7E 50 8F 9A 00360 MOVZBL #80, -(SP) : 
0118 CB OF 90 64 PUSHAB HDR? ; 
7E 7C 00368 CLRQ 2s = (SP) : 
58 DD 0036A PUSHL R : 
20 DD 0036C PUSHL #32 ; 
6B DD 00 6 PUSHL CHANNEL : 
7E 04 0037 CLRL. (SP) : 
69 OC FB 00 i CALLS #12, SYS$Q10W : 
56 50 D0 0037 MOVL RO, STATUS ; 
06 56 £9 00378 STATUS + 0986 
56 68 3c 00378 MOVZWL 10 STATUS, STATUS : 
05 56 E8 0037E BLBS STATUS, 34 + 0987 
56 DD 00381 33$: | PUSHL STATUS : 
6A 01 FB 00385 CALLS #1, LIBSSTOP ; 
E 7C 00386 348: LRO §p) > 0991 
7E 7¢ 00388 CLRQ = =(SP) : 
7E 7C 0038A CLRQ = = (SP) ; 
43 7C 0038C¢ CLRQ = SP) F 
58 DD 0038E PUSHL R8 ; 
28 DD 00390 PUSHL #40 : 
6B DD 00 92 PUSHL CHANNEL : 
7E D4 00394 CLRL. = : 
69 OC FB 00396 CALLS #i2, SYS$Q10W : 
56 20 D 9 99 MOVL : 
06 6 : 9C BLBC er ATOS $ : 0992 
56 6 ¢ 039F MOVZWL fo eye tus STATUS : 
05 56 E8 OO3A BLBS STATUS, 36$ : 0993 
56 DD 003A5 35$:  PUSHL STATUS ; 
6A 01 FB OO3A CALLS #1, LIBSSTOP ; 
E 7C OO3AA 36%: CLRQ -(§P) : 0997 | 
7E 7C€ OO3AC CLRQ = (SP) ; 
7E 7C OO3A CLRQ = = (SP) : 
7E 7C 0038 CLRQ = =( SP) : 
3 DD 0038 PUSHL R8 ; 
DD B4 PUSHL #40 ; 
a DD BS PUSHL CHANNEL ; 
E D4 0038 CLRL.  =(SP ; 
| 
} 
| 


con 


32. V4.0-742 a 
R:CINIT.SRCJINITAP.B32; 79 ) 


—w 
me 


H 15 
¥04~000 1e=8ep-1984 12:39:18 — DISKSVMSMAS 
A 


9 f F B CALLS #12, SYS$Q10W : 

6 D B MOVL RO, STAT : 
6 $ ; C BLBC STATUS, 37$ + 0998 

$ ¢ ¢ MOVZWL 10 StAtUs STATUS : 
0 6 £ C6 BLBS STAT 8s : 0999 

6 DD 003C9 37$: — PUSHL : 

ry 1 FB 003¢B CALLS #1, LIBS$STOP : 
E 7C OO3CE 38S:  CLRO -<(§P) + 1004 

7E 7C 003D CLROQ ~(3p) F 

7E 7C 003D CLRQ = = (SP) : 

43 7C 00304 CLRQ  =(SP) : 

3 DD 0 D6 PUSHL R : 

4 DD 003d PUSHL #36 : 

6B DD OO3DA PUSHL CHANNEL ; 

7E D4 003DC CLRL. = ; 

69 OC FB 003DE CALLS ri, "syssai0w ; 

56 50 DO 00361 MOVL RO, ATUS : 
06 36 E O3E4 BLBC OTA g $ + 1005 

56 68 3C 003E7 MOVZWL 10 STATUS STATUS ; 
05 56 €8 OO3EA BLBS STATUS, 46$ + 1006 

56 DD OO3ED 39$: — PUSHL STAT i : 

6A 01 FB OO3EF CALLS #1, LIBSSTOP : 
7E 7C 0O3F2 40$: CLRQ (SP) + 1011 

7E 7C 003F4 CLRQ = =(SP) : 

7E 7C 003F6 CLRQ  =<(SP) ; 

7E 7C 003F8 CLRQ =(SP) ; 

58 DD OO3FA PUSHL R8 : 

11 DD O03FC PUSHL #17 F 

6B DD OO3FE PUSHL CHANNEL : 

7E D4 00400 CLRL. = = (SP) ; 

69 OC FB 00402 CALLS ee sSySsauow : 

56 50 00 0040 MOVL RO, STATUS ; 

04 00408 RE : 


; Routine Size: 1033 bytes. Routine Base: $CODE$ + 0000 


OO 


a — 


15 
INITAp 1E-Sep-1964 01:50:56 vated! BLise=32_v4.0-742 


6. Page 24 
NIT. SRCJINITAP.B32; 1 s 3 | 


$ 95 1014 1 ROUTINE DEFAULT_CHAR : NOVALUE = 

r 38 1015 1 7 

s 9 4 \§ 1 lee 

: 598 1017 1! 

3 99 1918 1 ! FUNCTIONAL DESCRIPTION: 

; 600 1019 1! 

3 o8) 1930 : } This routine sets the tape drive default characteristics. 

; 60 18 § 1 ! CALLING SEQUENCE: 

3 604 1023 1 DEFAULT_CHAR (); 

; 605 10246 1! 

3 one 1025 1 ! INPUT PARAMETERS: 

; 60 10 $ 3 NONE 

; 608 10 1! 

; 609 1028 1 ! IMPLICIT INPUTS: : 

: 2\9 136) : CHANNEL - the I/0 channel of the tape drive 

; oi¢ 1031 1 ! OUTPUT PARAMETERS: 

s 61 1936 7 7 NONE 

: 614 1035 1! 

; 615 1034 1 ! IMPLICIT OUTPUTS: 

> 616 1035 1! 10_STATUS - set to the return status of the Q10 

: 617 1036 1! 

; 618 1037 1 ! ROUTINE VALUE: 

; 619 1038 1! NONE 

3 630 1039 1! 

; 621 1040 1 ! SIDE EFFECTS: 

; ose 1041 1! NONE 

5; 6 ieee i 

: 624 104 1 ! USER ERRORS: 

; 625 1044 1! NONE 

5 os6 1045 1! 

; 627 1046 1 !-- 

: 628 1047 1 

; 629 1048 BEGIN 

; 650 1049 

s 631 1050 LITERAL 

; O36 1051 ODD_PARITY = 0; 

s 63 1036 

3; 634 105 LOCAL he 

; 635 1054 CHARACTERISTIC : VECTOR C4,WORD], ' characteristics to set 

: 636 1055 STATUS; 

3; 637 1338 

; O38 19 BIND 

o7) 1928 } Set up offsets into the characteristics buffer 

3; 641 1060 FORMAT = CHARACTERISTIC : BBLOCK, 

3 ak: 1061 PARITY = CHARACTERISTIC : BBLOCK, 

; 64 1008 BUFFER_SIZE = CHARACTERISTIC : WORD 

; G64 1063 DENSITY = CHARACTERISTICL2) : BBLOCK; 

3 ong 1902 CHARACTERISTICCOJ= CHARACTERISTICCIJ= CHARACTERISTICC2J= CHARACTERISTICC3J= 0; | 

$ o68 1987 H Now set density | 

> 650 1968 DENSITYCMTS$V_DENSITY) = MTSK_PE_1600; 

; 651 1070 | 
| 
| 
j 


RS ati ns REF A SEI aa 


; Routine Size: 77 bytes, Routine Base: S$CODE$ + 0409 
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: § } 7) } Parity set to odd, we only support 9-tracks and 9-tracks are always odd 
3 6 4 7 PARITY C MTSV_PARITY J = ODD_PARITY; | 
4 6 § 03 ! Reset Tape format to FILES-11 ( only supported format ) 
3 638 r FORMAT C MTSV_FORMAT ) = MTSK_NORMAL11; 
3 o39 1978 Set the buffer size to ANSI max ( VMS default ) 
: 668 Hi} BUFFER_SIZE = 2048; 
5 664 19 ; write the characteristics to the tape drive 
: 666 P 1983 STATUS = $Q10W (CHAN = .CHANNEL 
: 667 P 1086 Tose = i0_STATU ug, 
: 668 P 108 UNC = 10S$_SETMODE 
: 669 1088 py = CHARACTERISTIC); 
: 670 1089 2 IF .STATUS THEN STAT US = .10_STATUSLO); 
671 1090 IF NOT .STATUS THEN ERR_EXIT~(.STATUS): 
; 878 1092 1 END; ! end of routine DEFAULT_CHAR 
0000 00000 DEFAULT_CHAR: 
WORD ave noshing 3 1014 
7E 7C 00002 CLR EHARACTERIS Ic + 1065 
0S AE 05 00 04 FO 00004 INSV DENSITY+1 + 1069 
04 AE 08 8A OOO0A BICB2 #8. P : 1073 
04 AE 04 04 OC FO O000E INSV #12, #4, #4, FORMAT + 1077 
02 AE 0800 8F 80 0014 MOVW feos, 6uFFER_SIZE > 1081 
7E 7C OOO1A CLRQ : 1088 
7E 7C€ 0001C CLRQ =¢$8) : 
7E D4 0001 CLRL = (SP) : 
14 AE 9F 000 PUSHAB CHARACTERISTIC : 
7E 7¢ 000 CLRQ = = (SP) : 
0000' CF 9F 00 5 PUSHAB 19 STATUS : 
23 DD 00029 PUSHL #35 F 
00006 cr DD 00028 PUSHL CHANNEL : 
000000006 Eee boost cuits ne, »SvSsgiow : 
9f a 8 BLBC + 1089 
50 0000" CF ¢ 0 MOVZWL io o,STAtus STATUS : 
09 0 £8 0004 BLBS $ > 1090 
0 DD 00043 1$: PUSHL STATUS : 
000000006 00 01 FB 0004 CALLS #1, LIBSSTOP : 
04 0004C 28: RET > 1092 


| 


| 
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f 


JINITAP.B32; ( 


oO 


ROUTINE SET_DENSITY : NOVALUE = 
- 
FUNCTIONAL DESCRIPTION: 
This routine sets the density of the tape drive. 


CALLING SEQUENCE: 
SET_DENSITY (); 


INPUT PARAMETERS: 
NONE 


> i | 
CONOW 


PAA AAAAAO 


PERSE 


SESS 


689 IMPLICIT INPUTS: 
CHANNEL - the 1/0 channel of the tape drive 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
10_STATUS = set to the return status of the Q10 
ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


USER ERRORS: 
NONE 


709 BEGIN 


LOCAL 
CHARACTERISTIC =: VECTOR C4,WORD), ! characteristics to set 
STATUS; 
BIND 
Set up offsets into the characteristics buffer 


! 

i] 

BUFFER SIZE CHARACTERISTICEI] : WORD 
DENSITY = CHARACTERISTICL2)] : BBLOCK; 


ee ee ee 
WONOUS WHO 


SOISA 


OWONOULSWN—OO 


read the characteristics of the tape drive 


STATUS = $Q]0W (CHAN = . CHANNEL 
I0SB = CHARACTERIST 
FUNC = [0$_SENSEMOD 

IF .STATUS THEN STATUS = .CHARACTER 

IF NOT .STATUS THEN ERR_EXIT (.STAT 

' 

i] 


SSeNeOUeUnw—o 
vv 


. Get the device 


cs 
STATUS, use the default 


Be Be Oe Se Be Be Be Oe Se Se Se Se Oe Se Ge Fe Be Se Ge Fe Se Se Se Ge Se Ge Ge Ge Se Se Se Se Se Se we Ge Se Se Ge Se Se Se Se Se Se Se Ge Se Se ee Se Se Se Sete eee 
~ 
me ee ee ee ee ee a ee ee ee ee ee ee ee em ec ee ee ec ee ee ee el ee ee ed eed od ed wd 


SPL LEE 


PROPOROPONORONONOFONORONONUPONOPONPINIPNDNUDY 2 2 


SSN 


up the buffer to hold the new character te 


t i 
ndependent stuff from the 2nd long word of 10 


Ww 
— 


a] 


vvv 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


WN 9 DONA UE ARO OONOUES WO 


—s 


buffersize and zero the notused field 


CHARACTERISTIC C0 J = = 95 
BUFFER_SIZE 648; 


Now set density to what the user specified. 


iF .INIT_OPTIONSCOPT_DENS 800] 
THEN DENSITYCMTSV DENSITY] = MT$K_NRZ1_800 


ELSE 

IF A hae OPTIONSCOPT DENS» 1600) 
HEN DENSITYCMTSV_DENSITY) = MTSK_PE 1990 
ese DENSITYCMTS$V_DENSITY] = MTSK~GCR_6250; 

} write the characteristics to the tape drive 

STATUS = $Q10W (CHAN = .CHANN 

10SB = 10 ST ATUg, 
4 C = 108 p 
IF .STATUS THEN STATUS = .10_STAT 
IF NOT .STATUS THEN ERR_EXIT~(.ST 
E 


ND; ! end of routine SET_DENSITY 


001C 00000 SET _pEMsiTY 


ORD Save R2,R3,R4 
54 000000006 00 E 90002 MOVAB LIBSSTOP, R4 
53 000000006 00 $e 09 MOVAB SYS$QI0W, R3 
5E 08 ¢ 0001 SUBL2 #8, SP 
7E 7C 0001 CLRQ. 0s = (§P) 
7E 7C 00015 CLRQ = (SP) 
7E 7C 00017 CLRQ =(SP) 
7E 7C 00019 CLRQ =(SP) 
20 Ag 9F 0001B PUSHAB CHARACTERISTIC 
27 ~DD OO1E PUSHL #39 
00006 CF dD 000 PUSHL CHANNEL 
E 04 00024 CLRL af ) 
63 C FB 000 $ CALLS #12, SYS$QI10W 
5 9 D 99 MOVL RO, STAT 
g § ¢ BLBC STATUS 
: ¢ O02F MOVZ2WL CHARACTERISTIC, STATUS 
0 E8 000 BLBS = ST ATUS, 2$ 
DD 00035 1$: PUSHL 
64 FB CALLS ; iF slop 
6€ 08000000 8F D A 28: MOVL +184 1 t 8 CHARACTERISTIC 
08 00006 cr 1 £1 00041 BBC NIT OPTI 
05 0 3 FO 47 INSV #3. #0, B DENSI T¥#1 
14 1 40 BRB 
08 00006 cr 1 €1 4F 3$: BBC a. INIT_OPTIONS+4, 4$ 
0 0 4 FO 25 INSV * #0, WS, DENSITY+1 
6 1 058 BRB 
05 00 FO 0005D 4$ INSV = #5, «#0, #5, DENSITY+1 


-0-742 
STER: CINIT.SRCJINITAP.B32; 39 


a 


INI TAP 16-Sep-1984 01:50:5 VAX-11 Bliss-32 V4.0-742 e = 
04-000 ak ats ra Py PH 8 
7E ze 5$: CLRQ 0 = (SP) 7 1169 
7E : CLRQ  =(SP) : 
7E CLRL 0s = (SP) : 
16 AE OF 9 PUSHAB CHARACTERISTIC : 
7E 7¢ C CLRQ = =(SP ; 
0000° cf OF PUSHAB 19 STATUS : 
3 DD PUSHL #35 ; 
00006 cf DD 0007 PUSHL CHANNEL : 
E D4 00078 CLRL rit : 
F 7A CALLS wie, . $ys$a10W : 
D 7 MOVL $ 
: BBC STATUS, + 1170 
0000° f MOVZWL 10S tatus STATUS : 
E BLBS = STAT § + 1171 
DD 6$ PUSHL STaTus : 
64 FB D CALLS #1, LIBSSTOP : 
04 00090 7$ RET + 1173 


; Routine Size: 145 bytes, Routine Base: S$CODES + 0456 
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V4.0-742 Page 29. 
INIT SREDINITAP.B32:1°%" ($5 
ROUTINE READ_VOLLABELS : NOVALUE = 


'e¢ 
1 
! FUNCTIONAL DESCRIPTION: 

is routine reads the first block on the magnets tape and 
checks if it is an ANSI tape. If it is, it then reads the 
HDR1 record to determine if the first file on the tape has expired. 


CALLING SEQUENCE: 
READ_VOLLABELS() 


INPUT PARAMETERS: 
none 


channel = channel number assigned to device being initialized 
OUTPUT PARAMETERS: 
none 


IMPLICIT OUTPUTS: 
VOLUME _UIC - owner of tape 
VOLUME _PROT - tape protection 
ACCESS 


| 
| 
| 
IMPLICIT INPUTS: 
- users’ access to a magnetic tape volume is set 


ROUTINE VALUE: 
none 
SIDE EFFECTS: 
none 
USER ERRORS: 
none 
BEGIN 
LOCAL 
DATE : VECTOR $i- t onary date 
DESCR : VECTOR C2], ! descriptor for today buffer 
REGDATE : VECTOR (12,BYTE), ' buffer for date in format | 
i “DD_MMM_YYYY | 
STATUS, ! system Service status 
TODAY : VECTOR (12,BYTE), 
VMS _ TAPE : BITVECTOR (1); ' set if the VOL1 sys code is VMS 


! read first block on tape and check status 
STATUS = $0]0W( 
CHAN = 


Pp 
IF .STATUS 
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> 814 1231 
; 815 1 < 1 set up default volume owner and protection, which is the current users UIC 
3 518 1 : and read write allowed. This will be reset by TAPE_OWN_PROT if this is 
; aig ! | ' a@ VAX/VMS tape 
: 819 1636 ¢ VOLUME UIC = .PROCESS_UIC; 
; 820 1 VOLUME-PROT = 0; 
Be 
: 8 © 1240 ! if first record is Tape Mark then not ANSI tape 
3 ase : $ ! if label is more than 80 characters ignore those characters beyond 80 
; £56 1 rk IF (NOT .STATUS) AND (.STATUS NEQ SS$_DATAOVERUN) 
3 Ssi 1244 THEN 
; 828 1245 BEGIN 
; 4 1246 : 
; 850 1247 ! if this is a new tape, the default density may have been changed 
3 $3) iste ; ! by the Q10 failure 
: 833 1250 3 IF .STATUS EQL SS$_OPINCOMPL 
3; 834 1251 3 THEN 
s 835 1626 4 BEGIN 
; 836 1253 4 
5 eee 1$20 2 ! tape must be at begining ( no reads to set density ) 
: 839 P1256 4 STATUS = $QIOW( CHAN = .CHANNEL, 
; 840 P1257 4 FUNC = I0$_REWIND, 
3; 841 1258 4 10SB = IO_STATUS); 
; 84 1259 4 IF .STATUS THEN STATUS = .10_STATUS(O]; 
: 84 1260 4 IF NOT .STATUS THEN ERR_EXIT (.STATUS); 
> B44 1261 4 
: 845 1266 4 DEFAULT_CHAR (); 
: 846 1263 3 END; 
; 847 1264 3 
; 848 1265 3 RETURN 1; 
> 849 1266 § END; 
; 850 1267 
3 B23 1608 § ! now check if first block is VOL1, foreign 
; 538 1570 : IF .ANSI_LABELCVL1SL_VL1LIDJ NEQ ‘VOL1" THEN RETURN 1; 
: $22 1676 ! Get the ANSI standard version off the tape. 
; 837 iste LABEL_VER = .ANSI_LABELCVL1$B_LBLSTDVER] - '0'; 
: 859 1 16 !' Call the accessibility system service to check the accessibility char 
; 860 127 ! on the VOL1 Label. Ae 
; 861 1278 ! First keep the record that the UCB is reading. The accessibility 
3 oe6 1279 ' routine can not move the tape from under us! Thus we will compare 
; 86 1280 ! this to the field after the call and if the tape was moved we punt 
: Hes 1283 ! the operation. 
; 866 58 CURRENT_RECORD = KERNEL_CALL(GET_RECORD, .UCB); 
: 868 P 1285 ACCESS = $MTACCESS(LBLNAM = ANSI LABEL, 
: 869 P Is § [_e. ESS_OIC 
; 870 P 128 STD_VERSION = TLABEL_VER, 
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71 P 128 ACCESS_CHAR = 0 

i P 128 ACCESS-SPEC = MTASK_NOCHAR, 

Le 3 TYPE ="MTASK_INVOL1); 

75 9 STATUS = KERNEL_CALL(GET_RECORD,.UCB); 

76 9 IF .CURRENT_RECORD NEQ .STATUS 

a $3 THEN ERR_EXIT(SS$_TAPEPOSLOST); 
879 9 ' Now check the ACCESS returned from the service. For SS$_FILACCERR 
880 9 ! check to make sure /OVERRIDE=ACCESS was specified and the user 
881 9 ! has privilege then set to check VMS protection. 


! 

' 

! 

' For SS$_NOFILACC, SS$_NOVOLACC return the code 

' to the user. In this case the user has no access to the tape volume. 
For a 0 give the user all access. For SS$_NORMAL check the VMS 


' protection. 


IF .ACCESS EQL SS$_NOVOLACC 
OR .ACCESS EQL SS$_NOFILACC 
THEN ERR_EXITT.ACCESS); 


IF .ACCESS EQL SS$_FILACCERR 
THEN 


BEGIN 
IF NOT .INIT_OPTIONSCOPT_OVR_ACC] 
THEN ERR_EXIT(.ACCESS); 
IF NOT .PRIVICEGE_MASKCPRV$V_VOLPROJ 
THEN ERR_EXIT(.ACCESS); 
wp Access = SS$_NORMAL; 


Sesto ooes 


! Determine owner and VMS protection of the tape. If not VMS protected 
! and pre ANSI version 4 and a DEC operatin ag wrote the tape 
! then the user must override the owner id field. 


STATUS = TAPE_OWN_PROT(VOLUME_UIC, VOLUME_PROT, .PROCESS_UIC, ANSI_LABEL); 


! If ACCESS allows see if user has VMS privilege to init the volume. 
! Also set the VOLUME_PROT accordingly. 
IF .ACCESS 

THEN 


BEGIN 
IF NOT .STATUS AND NOT .INIT_OPTIONSCOPT_OVR_VOLOJ 
THEN ERR_EXIT(SS$_VOLOERR) ; 


SES5oF 


ELSE 
VOLUME _PROT = 0; 


! check to see if the VOL1 system code is VMS's if it isn't then we don't 
! process the VOL2 Label. 
IF CH$SEQL(10,STARID,10,ANS]_LABELCVL1$T_SYSCODEJ,0) 
THEN VMS_TAPE = { 
ELSE VMS_TAPE = 0; 
! first record on tape is VOL1. Now read HDR1 and determine if first 
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3 g ] rf ! file has expired. User volume Labels may intervene. 
PHRF weg. 1 po 

: 9 ¢ P 1349 STATUS = $Q10W( 

s 9 P 1350 CHAN = .CHANNEL, 

; 9 P 1351 FUNC = IO$_R ADELE. 

; 935 P 1 26 10SB = I0_STATUS(O), 

: 339 P 138 po = BOI 

: 938 1355 IF .STATUS THEN STATUS = .10_STATUSCO]; 

; 939 1 28 IF NOT .STATUS 

; 940 135 IF .STATUS NEQ SS$_DATAOVERUN THEN RETURN 0; ! ANSI rape. but can't 
: 941 1358 ! read HDR1 

: 94 1359 ! If the sys code of the VOL1 label indicates that this is a VMS tape 
$ or 1307 ! and we find a VOL2 Label then process the Label. 

: 945 136¢ : IF .VMS_TAPE AND .ANSI_LABELCVL2$L_VL2L1D] EQL 'VOL2" 

: 946 1363 3 THEN 

: 947 1364 4 BEGIN 

; 948 1365 4 PROCESS_VOL2_LABEL (VOLUME_UIC, VOLUME_PROT, .PROCESS_UIC, 
> 949 1366 4 ELS; 

3; 950 1367 4 IF NOT .ACCESS THEN VOLUME_PROT= 0; 

; 951 1368 ; END; 

; 326 139) 2 Fe Eh LOL, SOS EQL ‘HDR1° THEN EXITLOOP; 

: 954 1371 ; 

: 955 13/6 2! test if the first file on the tape has expired 

3 228 1377 2 ! convert the JULIAN date on the tape to a VMS date 

; 328 132? ; FF NOTE, JER CREEDATE AEE LIBEL LUDTSS _LEPINESTE 

: 960 1377 BEGIN 

: 961 1378 3 DESCRLO) = 12; ! set up the descriptor 

: 43 1379 ; eacetle = REGDATE; 

; 96 1380 REGDATEC11) = ° '; ‘ 
: 964 1381 3 INTIM(TIMBUF = DESCR,TIMADR = DATE); ! convert from ASCII to binary 
; 965 138 3 SGETTIM(TIMADR = TODAYS; i get today's date in binary 
; 966 138 CALDAYNO(DATE, TODAY); ! chop off hours min and sec 
: 967 1384 END : 

: pee rH ELSE DATE = TODAY = 0; ! when all else fails 

: 970 1389 IF (.DATE GTRU .TODAY) AND NOT (.INIT_OPTIONSCOPT_OVR_EXP]) 

; 971 1388 THEN ERR_EXIT (SS$_FILNOTEXP); 

: 97 1390 ! Call the accessibility system service to check the accessibility char 

> 97% 1391 2! on the HDR1 Label. er 

s OFS 1398 ! First keep the record that the UCB is reading. The accessibility 

3; 976 139 ! routine can not move the tape from under us! Thus we will compare 

; 977 1394 ! this to the field after the call and if the tape was moved we punt 

$ ore 1332 ! ne operation. 

: oat Hi CURRENT_RECORD = KERNEL_CALL(GET_RECORD,.UCB); 

: 98 P 1399 2 ACCESS = SMTACCESS(LBLNAM = ANSI_LAGEL, 

; 98 P 1400 vIC =. J 

: 984 P 1401 STD_VERSION = 7LABEL_VER, 
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ACCESS_CHA 
ACCESS SPE PEC = s atase NOCHAR, 
TYPE ="MTASK_INHDR1J; 
STATUS = KERNEL_CALL( 


GET RECORD, .UCB) ; 
IF . CURRENT_R RECORD NEQ .STAT 
THEN ERRTEXIT(SS$_TAPEPOSLOST); 


' Now check the ACCESS returned from the service. For SS$_FILACCERR 

! check to make sure /OVERRIDE=ACCESS was specified and the user 

! has privilege. For SSS_NOFILACC, SS$_NOVOLACC owe the code 

' to the re In this case the user has no access the tape volume. 

' For a 0 give the user all access. For SS$_NORMAL shock the VMS 

} protection (whatever that means for files? maybe something in the 
uture). 


IF ea ae EQL SS$_NOVOLACC 
R .ACCESS EQL SS$_NOFILACC 
THEN ERR_EXITT.ACCESS); 


IF .ACCESS EQL SS$_FILACCERR 
THEN 


BEGIN 
IF NOT 1 giNIT ORT IONSCOPT OvR ACC] 
IF not fa tata VOLPROJ 
mp Access * SS$_NOR 


RE _— 0; ! valid to rewrite the ANSI TAPE 
END ! end of routine READ_VOLLABLES 


-EXTRN SYSSBINTIM, SYSSGETTIM 
OFFC 00000 ane SOLS 


» WORD e R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 
5B 000000006 00 9€ 00002 MOVAB So eSmraccess R14 
A 00006 CF 9E 00009 MOVAB  GET_RECORD R10 
59 00006 CF 9E 90005 MOVAB PROCESS UIC, RI 
38 900000006 0 9 0001 MOVAB SYS$Q ate Rb 
57 000000006 9F 9E OOOIA MOVAB Q#SYSSCHERNL , R7 
56 000000006 00 9€ 00021 MOVAB LIBSSTOP, R6 
55 0000' CF 3 00028 MOV ACCESS, R5 
5E 8 : 00020 SUBL2 #40, SP 

E 7C 00030 CLRQ. = = (SP) 
7E 7C 000 LRQ = =(SP) 
7E 50 8F 9A 000 MOVZBL #80, -(SP) 
9c «6 AS) «OOF 00038 PUSHAB ANSI_LABEL 
7E 7C 00038 CLRQ. = =(SPT 
EC AS 9F 0003D PUSHAB 19 STATUS 
21 DD 00040 PUSHL #33 
00006 CF DD 0042 PUSHL CHANNEL 
E D4 00046 CLRL. Os =(S 
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04-000 En seen ORs Pe geiig ee ObASteR CNIS SORCDINITAP.B32;1°%° (aS 
a ¢ F 048 CALLS #12, $ys$a10u : 
4 D 4B MOVL RO rs TAT : 
4 4 t aE BLBC 3s ST’ : 1230 
4 EC AS f 909 MOVZWL 10 evatus TATUS : 
FC OAS 69 D0 00055 1s: MOVL PROCESS ufc. VOLUME _UIC : 1336 
FB =AS «D4 00059 CLRL VOL UA E_PRO + 123 
40 24 E8 0005¢ BLBS § STATUS; ag. + 1243 
00000838 &F 34 D1 O05 CPL STATUS, #2104 : 
000002D4 = &F 34 D1 itt CMPL STATUS, #724 + 1250 
6 12 O06F BNEG % : 
7E 7¢ 000 CLRQ  =(SP) : 1258 
7E 7C€ 0007 CLRQ  =(SP) : 
7E 7C€ 0007 CLRQ (SP) : 
7E 7C 00077 CLRQ—_ = (SP) : 
EC aS 9F 00079 PUSHAB 10 STATUS : 
24 0D 0007C PUSHL #36 3 
00006 cr DD O007E PUSHL CHANNEL : 
E D4 00082 CLRL. (SP) : 
68 OC FB 00084 CALLS #12, SYS$QI10W ; 
54 50 00 00087 MOVL 0, TATUS : 
07 54 E9 0008A BLBC = STATUS : 1259 
54 ec AS 3¢ 9008 MOVZWL 10 WS suse STATUS ; 
05 54 £8 00091 BLBS STATUS, 3$ + 1260 
54 DD 00094 28 PUSHL STATUS” ; 
66 01 FB 00096 CALLS , LIBSSTOP : 
FE8G OCF 00 FB 00099 3s: CALLS +0. DEFAULT. CHAR : 1262 
04 0009E RET + 1265 
314C4F56 BF 9c AS D1 OO09F 4$: CMPL § ANSI_LABEL, #827084630 : 1270 
01 13 QOOA7 S$: BEQL 6s« 6$ ; 
04 0009 RET : 
08 AS EB AS 9A OOOAA 6$: MOVZBL ANSI_LABEL+79, LABEL_VER 3: 1274 
08 a5 30 C2 OOOAF SUBL2 #48, “LABEL_VER : 
0c AS DD 00083 PUSHL : 1283 
01 DD 00086 PUSHL us ; | 
4400 8F BB 000B8 PUSHR #*M<R10,SP> : 
67 04 FB OOOBC CALLS an <SYSS$CMKRNL ; 
04 AS 0 DO 000BF MOVL RO, CURRENT RRECORD : 
7E 7C 900¢3 CLRG (§P) > 1290 | 
7E D4 000C CLRL : 
08 AS OD 000C7 PUSHL TABEL VER : 
69 DD OOOCA PUSHL PROCESS VIC : 
9c 6AS) «OOF 000CC PUSHAB ANSI LABEL : 
6B 06 FB O00¢F CALLS #6, SYSSMTACCESS : 
65 D be MOVL RO, ACCESS : 
0c AS DD 9000 PUSHL UCB : 1292 
01 DD 00008 PUSHL #1 : 
4400 8F BB OOODA PUSHR #*M<R : 
67 04 FB OOODE CALLS #4, ait Th <a : 
54 0 bdO 000E1 MOVL RO, STATUS : 
54 04 AS 01 O00E4 CMPL URRENT RECORD, STATUS : 1293 
8 13 000E8 BEQL ; 
7E 0224 8F 3C OOOEA MOVZWL #548, -(SP) > 1294. 
66 1 FB QOEF CALLS #1, LIBSSTOP : 
50 $9 D Fe 7$: MOVL actes RO + 1304 
000022A4 BF 0 D1 OOOF CMPL = RO, #8868 : 
09 13 OO0FC BEQL «BS ; 
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000022AC «BF 50 D1 000F CMPL = RO, - #8876 : 1305 
12 019 BNEG 9$ : 
0 DD 00107 8s PUSHL RO + 1306 
66 1 FB 0199 CALLS #1, LIBSSTOP : 
0000009¢ = BF 63 D| aie 9$: CMPL ACCESS, #156 + 1308 
05 00006 CF 06 6 011 BBS #6, INIT_OPTIONS+3, 10$ : 1311 
6 DD 00118 PUSHL ACCESS + 1312 
bb 1 FB 011D CALLS #1, LIBSSTOP : 
05 F4 «BS 15 €0 00120 10$: BS #21, @PRIVILEGE_MASK, 11$ > 1313 
65 DD 00125 PUSHL ACCESS + 1314 
66 o1 FB 127 CALLS #1, LIBSSTOP ; 
6 1 00 0010A 11$ MOVL #1, ACCESS + 1315 
9¢ AS 9F 00120 12$ PUSHAB ANSI_LABEL + 1323 
69 DD 00130 PUSHL PROCESS UIC : 
F8 «=AS) «OOF 001 : PUSHAB VOLUME_PROT : 
FC «OAS OOF «(001 PUSHAB VOLU ; 
00006 CF 04 FB 00138 CALLS #4, TAPE OWN_PROT : 
54 0 pO 0013p MOVL RO, STATO ; 
12 65 €9 00140 BLBC ACCESS, 13$ + 1328 
12 54 £8 00143 BLBS STATUS, 14$ > 1331 
0D 00006 CF £8 00146 BLBS § INIT _OPTIONS+5, 14$ : 
7E 226C «=6—BF «O8C.:«00148 MOVZWL #8812, -(SP) 3 133 
66 01 FB 00150 CALLS #1, LIB$STOP ; 
03 11 00153 BRB 14$ : 1328. 
F8 AS 04 00155 13$:  CLRL. VOLUME_PROT + 1335 
B4 OAS 0000" CF OA 2900158 148:  CMPC3 #10, STARID, ANSI_LABEL+24 : 1340 
05 12 0015F BNEQ 15 : 
52 01 90 00161 MOVB #1, VMS_TAPE + 134 
92 11 00164 BRB 16§ ; 
52 94 00166 15$: CLRB  VMS_TAPE > 134 
7E 7C 00168 16$: CLRQ (5 : 135 
7E 7C OO16A CLRQ (SP) ; 
7E 50 BF 9A 0016C MOVZBL #80, -(SP) : 
9¢ AS 9F 00170 USHAB ANSI_LABEL : 
7E 7C 00173 CLRQ = =( SPY : 
EC AS 9F 00175 PUSHAB 19 STATUS : 
21 DD 00178 PUSHL 3 : 
00006 CF DD OO17A PUSHL CHANNEL F 
7E D4 O017E CLRL. = (SP) : 
68 OC FB 00180 CALLS #12, SYS$QIOW : 
54 50 DO 00183 MOVL RO, STATU : 
07 54 & 00186 BLBC = STATUS, 17$ > 1355 
54 EC AS ¢ 00189 MOVZWL 10 STATUS, STATUS ; | 
OA 54 £8 001 BLBS STATUS, 18$ : 1356 
00000838 8F 54 D1 00190 17$:  CMPL STATUS. #2104 : 1357 
01 13 00197 BEQL 18S ; 
04 00199 RET ; 
20 52 E9 0019A 18$: BLBC  =VMS_TAPE, 19$ > 1362 
324C4F56 BF 9¢ AS 01 00190 CMPL § ANST_LABEL, #843861846 ; 
16 12 001A5 BNEQ 198 ; 
9¢ AS 9F OO1A7 PUSHAB ANSI_LABEL > 1365 
69 0D OIAA PUSHL PROCESS UIC : 
F8 A? 9F OO1AC PUSHAB VOLUME_PROT ; 
FC «AS «OF OO1AF PUSHAB VOLUME UIC : 
00006 CF 04 Fe O18¢ CALLS #4, PROCESS_VOL2_LABEL : 
03 65 €8 0018 BLBS ACCESS, 19$ : 1367 
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F8 AS D4 OO1BA CLRL §_ VOLUME_PROT F 
31526448 8F 9C 3 D4 i 19$ chPL ANSI LABEL , #827475016 + 1369 
c AS 9F OO1C PUSHAB ANSI_LABEL+47 : 1375 
10 AE 9F OOICA PUSHAB : 
00006 cE FB 1C CALLS #2, § NVDATE_J2R : 
F E9 001D BLBC =O séR $ : 
18 AE € 00 001D MOVL #12, DESCR + 1378 
1c AE 0c ar 3 109 MOVAB REGDATE DESCR+4 + 1379 
17 AE 20 9 9910 MOVB #32, REGDATE+11 : 1380 
20 AE 9F OO1E PUSHAB DATE + 1381 
1C AE OF OIE PUSHAB DESCR : 
000000006 00 9 FB O01E8 CALLS #2, SYSSBINTIM : 
E DD OO1EF PUSHL SP + 1382 
000000006 00 on FB OO1F1 CALLS #1, SYSSGETTIM : 
E DD OO1F8 PUSHL SP + 1383 
24 AE 9F OO1FA PUSHAB DATE : 
00006 CF 22 FB OorFD CALLS #2, CALDAYNO : 
05 11 00202 BRB 21§ + 1375 
6E D4 00204 20$:  CLRL TODAY : 1385 
20 AE 04 00206 CLRL DATE é 
6E 20 AE D1 00 09 21$: CMPL =ODATE, TODAY + 1387 
0D 1B 0020D BLEQU : | 
07 00006 CF 03 £0 0020F BBS #3, INIT_OPTIONS+3, 22$ : 
7E B4 «BF OSA 90213 MOVZBL #180, -(SP) : 1388 
66 01 FB 00219 CALLS #1, LIB$STOP : 
0c AS DD 0021C 228:  PUSHL UCB : 1397 
01 DD O0e1F PUSHL #1 : 
4400 8F BB 00221 PUSHR #*M<R10,SP> : 
67 04 FB 00225 CALLS #4, SYS$CMKRNL ; 
04 AS 50 DO 00228 MOVL RO, CURRENT_RECORD : 
01 bp 0022C PUSHL #1 ; 1404 
7E 7C 00 é CLRQ. = =(SP) : 
08 AS DD 00 PUSHL LABEL_VER 3 
69 DD 0033 PUSHL PROCESS UIC : 
9¢ AS 9F 00235 PUSHAB ANSI LABEL : 
6B 06 FB 00238 CALLS #6, SYSSMTACCESS : 
65 50 DO 00238 MOVL RO, ACCESS : 
Oc AS DD 0023 PUSHL UCB + 1406 
01 DD 00241 PUSHL #1 : 
4400 8F 8B 00243 PUSHR #*M<R10,SP> 3 
67 04 FB 0247 CALLS #4, SYS$CMKRNL ; 
54 0 DO 0024 MOVL U : 
54 04 AS D4 99 4D CMPL RRENT_RECORD, STATUS : 1407 
8 13 00251 BEQL : 
7E 0224 8F %3C 00 33 MOVZWL #548, -(SP) : 1408 
64é 1 FB 0 CALLS. #1, LIBS$STOP : 
50 65 D 0 38 238: MOVL ACCESS, RO : 1418 
000022A4 BF 50 01 CMPL =- RO, «#8868 : 
09 13 0026 BEQL : 
000022AC BF 0 D1 0026 CMPL RO #8876 > 1419 
09 12 6 BNEG 25$ : 
0 oD 24$: PUSHL R > 1420 
66 01 FB i CALLS #1 LIBSSTOP F 
0000009c = BF 65 D1 00075 258: CMPL ACtESS, #156 : 1422. 
18 if 7¢ BNE $ : 
05 00006 CF 06 E 7E BBS #6, INIT_OPTIONS+3, 26$ > 1425 


vO4~000 IEREOcH9EL QU:QEEE  YIMeHABRLRRERZ CHa SACs umaran.osch@0" 


5 oD PUSHL ates : 1426 
a 1 FB CALLS # aC $STOP : 
05 Fe BS 3 E 26$: BBS #21, aPRIVILEGE_MASK, 27$ + 1427 
65 DD 0028 PUSHL aC céss + 1428 
66 01 FB 00290 CALLS - LIBSSTOP : 
65 01 DO 00293 27%: MOVL At ACCE + 1429) 
04 00296 28$: RET + 1436 


; Routine Size: 663 bytes, Routine Base: S$CODE$S + 04E7 
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; 1019 1435 1 ROUTINE CHECK_PROT(VOL_PROT,VOL_UIC) = 

; 1020 14 § 1 

: 18 1 14 1 !+4 

3 1 ¢ 14 . 2. Ss 

3 18 1G 1 ! FUNCTIONAL DESCRIPTION: 

3; 1024 1440 1! this routine check volume protection 

; 1025 1441 1! 

; 10 8 bg 1 ! CALLING SEQUENCE: 

; 10 144 1! CHECK_PROT(ARG1,ARG2) 

; 1028 1444 1! 

: 1029 1445 1 ! INPUT PARAMETERS: 

: 1° 0 1048 1! ARG1 = volume protection 

3; 1031 1447 1! ARG2 = volume owner UIC 

; 10 g 1448 1! 

; 10 1449 1°! IMPLICIT INPUTS: 

3 10 1450 1! PROCESS _UIC - UIC of the current process 

3 1035 1451 1! PRIVILEGE_MASK = mask of privileges that the user has 
; 19 1626 ! INIT_OPTIONS - init options bitvector 

; 1038 1454 1 ! OUTPUT PARAMETERS: 

: 1039 1455 1! none 

: 1040 1456 1! 

3 1041 1457 1°! IMPLICIT OUTPUTS: 

3 Lk 1458 1! none 

3; 104 1459 1! 

3: 1044 1460 1 ! ROUTINE VALUE: ; 

; 1045 1461 1! SSSNORMAL - if users has the needed priviledges — 

3: 1046 re «| 1! SSSNOPRIV - if users does not have the needed priviledges 
: 1047 1463 1! 

3; 1048 1464 1 ! SIDE EFFECTS: 

3 1049 1465 1! none 

: 1050 1466 1! 

; 1051 1467 1 ! USER ERRORS: 

3 1326 1468 1! none 

; 105 1469 1! 

> 1054 1470 1 !-= 

3; 1055 1471 +1 

3: 1056 1476 BEGIN 

3; 1057 147 

: 1058 1474 

: 1059 1475 PROCESS_UIC : VECTOR C 2, WORD J, ! the process UIC 
: 1060 1476 VOL_PROT : BITVECTOR 

> 1061 1477 VOL“UIC : VECTOR C 2, WORD J; 

: 1066 1673 

3 1 147 EXTERNAL 

; Hive re + EXESGL_SYSUIC : REF BBLOCK ADDRESSING_MODE ( ABSOLUTE ); 
; 1906 1086 LITERAL : 

; 106 14 NOT_GROUP_WRITE = 9, ! the group write disable bit 

> 1068 1484 NOT“WORLD“WRITE = 13; | the world write disable bit 

: 1088 1485 

3; 10 1656 

3 4a ¢ i : check if the user has write access to the tape 

F 1978 1485 IF ( .PRIVILEGE_MASK C PRVSV_BYPASS ] ) OR ! user has bypass priviledge 
: 1075 1491 ( .PRIVILEGE_MASK C PRVSV_SYSPRV J ) OR ! user has sysprv priviledge 
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; Routine Size: 


; 1095 


1338 

149 

1494 

1495 

1698 

149 

1498 

1393 

180% 4 

1206 

150 

1504 

1505 

128 ' 

150 : 

1508 § RET 

1509 

1510 1 END 
2F 
2B 
27 
22 

0000G CF 

04 

66 bytes, 

1511 1 


18-09-19 
12-388 


-Sep-19 


( .PRIVILEGE_MASK C PRVS$V_VOLPRO J ) OR 
( NOT .VOL_PROT C NOT_WORLD_WRITE ] ) OR 


( .PROCESS_UIC C 1 J] LEQ .EXESGL_SYSUIC ) OR 


(( PROCESS UIC C1] EQL .VOL_UIC C_1_]_) AND 
(( .PROCESS_UIC C0) EQL .VvOC_UIC : 0] ) OR 
( NOT .VOLPROT C NOT_GROUP_WRITE J ))) 


THEN RETURN SS$_NORMAL; 


user does not needed priviledges return error 


URN SS$_NOPRIV; 


50 0000" CF b0O 00002 

60 1D €0 00007 

60 1¢ EO 00008 

60 15 £0 OO00F 

05 AC 05 €1 00013 

10 00 Fp 00018 

15 15 00023 

OA AC 0000G CF 61 00025 

11 12 B08 B 

08 AC 0000G CF B61 000 4 
05 13 000 

05 ac 01 €0 00035 

50 01 00 0003A 

04 4 ) 

50 24 D0 O003E 

04 00041 


Routine Base: SCODE$ + O77E 


1$: 
23: 


VA 


! user has volpro priviledge 


! the tape is world write 


! the user's UIC has a 
! system group number 


(the user's and tape's 
UIC matches) OR (tape's 
and user's group match 
and tape is group write) 


.EXTRN EXESGL_SYSUIC 
0000 00000 CHECK_PROT: 
WORD 


Save nothin 
PRIVILEGE_ 
#29, (RO), 1 
: (RO), 1 
#5, VOL_PROT+1, 1$ 
#0, #16, PROCESS_UIC+2, @#EXESGL_SYSUIC 
PROCESS_UIC+2, VOL_UIC+2 

peOcess WiC. VOL_UIC 


#1, VOL_PROT+1, 2$ 
#1, RO 


° 


SK, RO 
$ 


#36, RO 


4 01:50:5 X-11 Bliss-32 V4.0-742 2 
2 93:39:28 DISKSVMSMASTER:CINIT.SRCJINITAP.B32: 1-9 (6) 
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ROUTINE FORMAT_VOL1_VOL2 = 


FUNCT ON 
specified a protection, of an ANSI Labeled tape. 


~000 
He 
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05 
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WOOO wh— 
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CALLING SEQUENCE: 


Pa 
JINITAP.B32;1 


L DESCRIPTION: 
s routine formats the volume Label one and two, if the user has 


FORMAT_VOL1_VOL2 () 


i INPUT PARAMETERS: 
none 

IMPLICIT INPUTS: 
none 


OUTPUT PARAMETERS: 


none 


IMPLICIT OUTPUTS: 
none 


ROUTINE VALUE: 


Value of VOLUME_PROT 


SIDE EFFECTS: 


The correct infomation gets stuffed into the VOL1 skeleton 


USER ERRORS: 
none 


Ss P 
VOLUME _PROT, 
VOLUME _UIC; 


' protection for tape 
' owner of tape 


UPLIT was used instead of CHSTRANSTABLE here, the code 
roduced is the same (ie the constant strin 
PLIT was used because CHSTRANSTABLE generates a warning 

then as e character at a time is specified 
the ZASCII. ( BLIS 

The table will upcase a..z and return ‘@' for any non ANSI 


= UPLIT BYTE ( 


TRANSLATION_ TAB 


@adddaaadadadaaaaa 
aze''()e+,-./01 
*@ABCDEF GHI JKLMANOPQR 


STUVWXYZaaaa_', 
*"@ABCDEFGHIJKLMNOPQRSTUVWXYZaaa@aa' . 


>>>> 


M16 
AP 16-Sep-1984 01:50:5 VAX-11 Bliss-32 V 
12280-1382 93:39:78 DISKSVMSMASTER:CI 
*89000000000900000000000000000000' , 
‘@dddIADAIAAAAIARAAAAIAAAaAAAGAa', 


‘@0000000000000000000000000000000' 
' AddaadaaIAdAadAadaaaaaaaaaaaaAaA' ); 


ZASCII 
ZASCII 
ZASCI! 
ZASCII 
1 
' place the Label in the new volume 
! check Length of Label for volume 
if p LABEL STRING COSCSW_LENGTH] GTRU VL1$S_VOLLBL 
4 
4 
4 
4 


42 1 
RC ) 


sz 
S 
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ERR_EXIT(SS$_MTLBLLONG) ; 
! translate the Label into upper case and put in '@' for any non-ANS! 
' a characters found, padded with space in case label from command is 
! less than six characters long 


CHSTRANSLATE ( TRANSLATION TAB 


3.09 090900090909 09 09098 SI INI III NINO 
Co NAME WN OO DNAUE WO OONAUE WN OO 


E 
ABEL_STRING Cbscew_rencty 
DSCS$A~POINT 


Munn 
SSSBVEALAN SS SHNAAP ANISH US ALERISSSIEAL 


1 

1 

1 

1 

1 

1 

1 . a ] 

3 ; LABEL STRING OINTERS, 

1 9 VL1$S_VOLLBL 

1 4 VOLICOL1$T_VOLLBL) ); 

: , ! check for non-ANSI ‘a’ characters 

1 9 IF NOT CHSFAIL( CHSFIND_CH ( VL1$S_VOLLBL, VOLICVLIST_VOLLBL], ‘a')) 

! 98 THEN ERR_EXIT (“INITS_BADVOLLBL ); 

1 00 ! If the interchange switch is set do not put any VMS specific information on 
; 4 ! to the tape. 

1 8 IF NOT .INIT_OPTIONSCOPT_INTERCHG) 

1 04 THEN 

1 0 BEGIN 

191 0 

136 ° ! determine owner and protection of new volume 

1 0 IF .INIT_OPTIONSCOPT_PROTECTION] ! did user specify protect ten 
1 THEN VOLOME_PROT = .PROTECTION ' protection input by user 

: ELSE VOLUME_PROT = 0; ! no protection is default 

: IF .INIT_OPTSONSCOPT OWNER_UIC) ' did user specify owner UIC 


T 
THEN VOLOME_UIC = .OQNER_UTC 
ELSE VOLUME-UIC = .PROCESS_UIC; 


! place the values in the Label 


FORMAT _VOLOWNER(VOL2 
IF ;VOCUME_PROT NEG 6 


BEGIN 


user input owner 
use the user's process UIC 


ARAN LOSS VEE 


- VOLUME _UIC,. VOLUME _PROT) ; 


$T_SYSCODE]); 
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3B 
3% 
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3% 
3% 
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! put in the user specified VO!l.1 owner identifier 


IF .INIT_OPTIONSCOPT_VOL_OWNERJ 
THEN CHSMOVE (VL1SS_OWNER_IDENT,VOL_OWNER, VOLICVL1$T_OWNER_IDENTJ); 


IF .INIT_OPTIONSCOPT_LABEL_QUAL] 
THEN SPEC = MTASK_CHARVALID 
ELSE SPEC = MTASK_NOCHAR; 


! Call the accessibility system service to get the accessibilty char for 
! the VOL1 Label. 

! First keep the record that the UCB is reading. The accessibility 

! routine can not move the tape from under us! Thus we will compare 

! this to the field after the call and if the tape was moved we punt 

! the operation. 


CURRENT _RECORD = KERNEL_CALL(GET_RECORD,.UCB); 
CHAR = aicneaconeeste | et = 0 


OCESS_UIC, 
STD_VERSION = -LABEL_VER, 
ACCESS_CHAR = .VOL_ACC, 


STATUS = KERNEL_CALL(GET_RECORD,.UCB); 
IF .CURRENT_RECORD NEQ .STATUS 


THEN ERR-EXIT(SS$_TAPEPOSLOST); 
VOLICVL1$8_JOLACCESSJ = .CHARCO]; 


: Return the value of VOLUME_PROT to determine if a VMS protection was 
! specified 


RETURN .VOLUME_PROT; 
END; ! end of routine FORMAT_VOL1_VOL2 


0- 
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20-742 
IT. SRC 


-PSECT $PLITS,NOWRT,NOEXE,2 
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-ASCII = \@0000000000000000000000000000000\ 
eASCIT \ f°RORB" () #4, -./0123456789: 5 <=>7\ 
-ASCII \@ABCDEFGHI JKLMNOPQRSTUVWXYZaaaa_\ 
-ASCII \@ABCDEF GH] JKLMNOPQRSTUVWAY Zaaaaa\ 


-ASCII] = \@0000000000000000000000000000000\ 
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1 
INI TAP 1$-sep-19 4 01:50:5 VAX-11 Bliss-32_V4.0-742 Pa 
v04-000 baat 1 03:38: 3 DISKSVMSMASTER:CINIT.SRCJINITAP.B32;1 ° 
40 40 40 40 40 40 40 40 40 40 40 40 40 8 re ppa3 3 
40 40 40 40 40 40 40 40 40 40 40 40 & ‘9 4 0B4 -ASCII \a@aadaaaaaaaadaadaadaaaaaadaavaaaaaa\ : 
40 40 40 40 40 40 40 40 40 40 40 40 4 40 40 goes : 
40 40 40 40 40 40 40 40 40 40 40 40 40 40 i9 00D4 -ASCII \a@aaaaaadaadacaaaaaaaaaaaaaaaaaaaa\ : 
40 40 40 40 40 40 40 40 40 40 40 40 40 49 40 OES : 
40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 00084 -ASCII] \a@aaadaaaaaaaaaaaaaaaaaaaaaaaaaaaa\ : 
40 40 40 40 40 40 40 40 40 40 40 40 46 40 40 00103 : 
40 40 00112 3 
TRANSLATION_TABLE= P.AAC 
-PSECT $CODE$,NOWRT,2 
| O3FC 00000 FORMAT_VOL1_VOL2: 
WORD Save R2,R3, $e R5,R6,R7,RB,RO : 
59 00000000G 9F 9E 00002 MOVAB aASYSSCHK — Ro" : 
58 00000000G 00 9E 00009 MOVAB Thee OP, ; 
| 57-0000" CF 9E 00010 MOVAB VOLI#4., A?" : 
06 00006 CF B61 00015 CMPW UABEL STRING, #6 : 
08 1B OOO1A BLEQU. 1 : 
7E 0304 8F 3C OO0IC MOVZWL #772, =(SP) 3 
: 6S 01 FB 00021 CALLS #1, LIBS$STOP : 
| 0000" CF 20 00006 ODF 00006 CF 2E 00024 1$: MOVTC LABEL STRING @LABEL STRINGS4, #32, : 
| 67 06 0002F TRANSCATION TAB ABLE, #8, VOLi+ ; 
| 67 06 40 8F 3A 00031 LOCC #64, #6, v0 Oct 3 
02 12 00036 BNEQ = 2$ : 
| 51 D4 00038 CLRL R1 $ 
51 DS OO03A 2$: TSTL R1 : 
| 09 13 0003c BEQL 3 : 
| OO7S580FC 8F ODD O003E PUSHL #7700732 3 
48 01 FB 00044 CALLS #1, LIBS$STOP : 
40 0000G CF 01 €0 00047 3$ BBS #1, INIT_OPTIONS+5, 8$ ; 
07 00006 CF 02 £1 0004D BBC #2, INIT~OPTIONS+1, 4$ : 
56 0000G CF 00 00053 MOVL PROTECTION, VOLUME_PROT : 
02 11 00058 BRB 5$ 3 
| 56 D4 OO05A 4$: CLRL VOLU : 
07 00006 CF 5 €1 0005C 5$: BBC #5, irre SPTIONS#1, 6$ 3 
50 00006 CF DO 9006¢ MOVL OWNER_UIT, VOLUME_UIC : 
05 11 0006 BRB : 
50 0006 cf DO 90069 $$: MOVL PROCESS_UIC, VOLUME_UIC : 
041 F BB 6E 7$: PUSHR #*M<RO,R6> 3 
4C A? 9F 0007 PUSHAB I : 
00006 CF 03 FB 0007 CALLS FORMAT_VOLOWNER ; 
56 D5 QOO7A TSTL VOLUME _PROT 3 
OF 13 O0007C BEQL ae ; 
146 A? 0000" CF A 8 00076 MOVC3 #19. STARID, VOL1+24 3 
4B «A? 4 90 0008 MOVB #52. VOL1+79 ; 
FO A? 4 bo 0089 MOVL #4, LABEL_VER ; 
00006 CF $5 0008D 8s: TSTB NiT_OPTIONS+4 F 
7 18 00091 BGEQ ; 
21. A? 000G CF E 28 00093 MOVC3) #14, VOL_OWNER, VOL1+37 : 
05 0006 cf 6 £1 909A 9$: BBC #6, INITOPTIONS+4, 10$ : 
2 1 DO O00A0 MOVL #i, SPEC” ; 
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; Routine Size: 


1250 1665 1 
1251 1666 1€E 
1252 1667 OE 
Name 
SPLITS 
SOWNS 
SCODES 
File 


251 bytes, 


F4 
00006 
F 
EC A? 
7E 0000G ¢ 
FO OCA 
00006 ¢ 
00000000G 00 0 
F8 A7 5 
Fo OA 
0 
5 
0000G ¢ 
69 0 
50 EC " 
7E 0224 8 
68 0 
06 A? FB OA 
50 5 
Routine Base: S$CODE$ + 
ND 
LUDOM 
PSECT SUMMARY 


Bytes 


276 wovEe’ NOWRT, 
440 NOVEC, WRT, 
2235 NOVEC: NOWRT, 


Library Statistics 
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Attributes 


RD ,NOEXE,NOSHR, 
a. »NOEXE ,NOSHR, 


Symbols 
Loaded 


EXE ,NOSHR, 


Percent 


1986 92:38: 


-EXTRN 


Pages 


Mapped 


REL, 
REL, 
REL, 


:5 Vv 
21 D 


& 
SP 

GET RECORD 
#4, SYSSCMK 
R * CURRENT RRECORD 
SPEC 

VOL ACC, -(SP) 
PROCESS_UIC 

#6, SYSSMTACCESS 
RO, CHAR 

ucB 

#) 

SP 

GET_RECORD 


#4,” SYSSCMKRNL 
CURRENT. RECORD, STATUS 


VOLUME PROT, RO 


LIBSSIGNAL, LIBS$STOP 

CON,NOPIC ,ALIGN(2) 
CON,NOPIC,ALIGN(2) 
CON,NOPIC ,ALIGN(2) 


Processing 
Time 


Mat 42 
«SRC 


JINITAP.B32; i 


Pete Se Se Se Ge Se Fe Ge Ge Fe Se Se Ge Fe Fe Ge Fe Ge Fe Se Ge Se Se Fe Se Fe Se 


44 
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¥0E+000 tig wSep-1986 42:39:18 — DESKSUMSMASTERSCINIT.SRCINITAP.B32;1°%° (9) i 
| .$255SDUAZ8:(SYSLIBILIB.L32:1 18619 70 0 1000 00:01.9 | 
| 
| | 
: COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:INITAP/CBJ=OBJ$: INITAP MSRC$:INITAP/UPDATE=(ENHS: INI TAP) 
; Size: 2235 code + 716 data bytes 
Run Time: 00:48.8 


Elapsed Time: 01: i76 4 
Lines/CPU Min: 
,evenes/CApaie: 2 rts 
7. Used: 365 pages 
Coma! ation Complete 
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